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THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE W!TH 
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85 
86 +. ABSTRACT 
88 THIS PROGRAM TESTS THE LOGIC OF THE DJ11\ ASYNCRONOUS 
89 | MULTIPLEXER IN MAINTENANCE MODE. IT CHECKS THAT ALL THE 
90 CONTROL REGISTERS FUNCTION PROPERLY, THAT INTERRUPTS OCCURE 
91 AT THE RIGHT LEVEL, AND THAT DATA CAN BE TRANSMITTED AND 
92 RECEIVED CORRECTLY. THIS PROGRAM DOES NOT TEST THAT THE 
93 INPUT AND OUTPUT LEAD CONNECTIONS ARE FUNCTIONAL. (SEE 
94 MAINDEC--11=DZ2DJB, PROGRAMS 2 AND 3 FOR ON-LINE TESTING). 
95 THE PROGRAM SHOU!D BE RUN FOR AT LEAST 2 PASSES WITH ALL 
96 SWITCHES DOWN. 

98 NOTE: THE PROGRAM WILL AUTOSIZE THE SILO ALARM LEVEL OF THE 
99 DJ11 AND WILL RUN AT ANY ALARM LEVEL SET. AND WILL RUN AT 
100 ANY ALARM LEVEL SET. 
t 
102 
103 2: REQUIREMENTS 
104 
105 
106 2.1 EQUIPMENT 
708 PDP-11 STANDARD COMPUTER WITH CONSOLE TELETYPE 
109 UP TO 16 DJ11 ASYNCRONOUS MULTIPLEXERS. 
111 
132 2.2 STORAGE 
114 THIS PROGRAM USES ALL OF 8k. EXCEPT ABS LOADER. 
116 
7 2.3 PRELIMINARY PROGRAMS 
719 NONE 
120 
121 
lee 3. LOADING PROCEDURE 
126 USE STANDARD PROCEDURE FOR ASS TAPES. 
126 
127 ‘: STARTING PROCEDURE 
128 
129 
130 4.1 CONTROL SWITCH SETTINGS 
132 SFE 5.1 (ALL DOWN FOR WORST CASE TESTING) 
134 
135 &.2 STARTING ADDRESS 


137 THE PROGRAM SHOULD ALWAYS BE STARTED AT 200. IT MAY BE 
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138 RESTARTED AT 1090 AFTER ALL PARAMETERS HAVE BEEN SELECTED. 
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DESCRIPTION 


4.3 


PROGRAM AND OPERATOR ACTION 


) LOAD PROGRAM INTO MEMORY USING ABS LOADER. 

) LOAD ADDRESS 200. 

) IF HARDWARE SWITCH REGISTER IS AVAILABLE, SET SWITCHES 
(SEE SEC. 5.1), ALL DOWN FOR WORST CASE, “pie START. 

) IF SWITCH=LESS PROCESSOR SIMPLY PRESS STAR 

) ENTER PARAMETERS (SEE SEC. 5.3) AS THEY ARE REQUESTED. 

) THE PROGRAM WILL LOOP AND BELL WILL RING ONCE EVERY PASS. 
EOP’ IS ALSO PRINTED ON EACH PASS. 

7) A MINIMUM OF TWO PASSES SHOULD ALWAYS BE RUN. 


OPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS 


AT SA 200, ALL SWITCHES DOWN IS WORST CASE TESTING. EACH 
SUBTEST WILL BE LOOPED UPON UNTIL COMPLETION OF 16 PASSES OF 
THAT SUBTEST. THE BELL WILL RING UPON COMPLETION OF A PASS 
OF THE ENTIRE PROGRAM. 


THE SWITCH SETTINGS ARE: 


SC TO>: @ To cas HALT ON ERROR 
SW< 74> = 1 eeeee# SCOPE LOOP 
SW<13> = 1 ..... INHIBIT PRINTOUT 
SW<12> = 1 ..... PRINT SILO ALARM LEVEL (IN OCTAL) 
SW<T7> = 1 ..... INHIBIT ITERATIONS OF SUBTEST 
SWw<10> = 1 ..... BELL ON ERROR 
0 ..... BELL ON PASS COMPLETE 
SwW<09> = 1 e#eeees LOOP 
SW<08> = 1 ..... LOOP ON TEST IN SW<7:0> 


THIS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR 
WITHOUT A HARDWARE SWITCH yo Sahar WHEN FIRST EXECUTED THE 
Peagereg TESTS THE EXISTENCE OF A HARDWARE SWITCH REGISTER. 

F NOT FOUND A SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 
176) 1S DEFAULTED TO. IF THIS IS THE CASE, UPON EXECUTION 
THE CONTENTS OF THE SWREG ARE DUMPED IN OCTAL ON THE CONSOLE 
TTY AND ANY CHANGES ARE REQUESTED 


(I.E. SWR=XXXXXX NEW= 
POSSIBLE RESPONSES ARE: 
IF NC CHANGES ARE TQ BE MADE. 
TO REPRESENT IN OCTAL THE NEW SwilTCH 
REGISTER VALUE; LAST BIGIT FOLLOWED BY 


<CR>. 
TO ALLOW REENTERING VALUE IF ERROR [5S 


1: GR 
2. 6 DIGITS 0-7 


2 rae *, 


SEG 0005 
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195 COMMITTED KEYING IN SWREG VALUE. 
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Jad 


Jade I 


er ir 4 


5.2.4 


BUILT INTO THE PROGRAM IS THE ABILITY 10 DYNAMICALLY CHANGE 
THE CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING 
m (CNTL. G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG 

CHANGE THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY 
AREAS OF THE PROGRAM CODE (IE) ERROR ROUTINES, AFTER HALTS 
END OF PASS, AND OTHER APPLICABLE AREAS. 


SUBROUTINE ABSTRACTS 


SCOPE 


THIS SUBROUTINE CALL (VIA A TRAP INSTRUCTION) IS PLACED 
BETWEEN EACH SUBTEST IN THE INSTRUCTION SECTION. IT RECORDS 
THE STARTING ADDRESS OF EACH SUBTEST AS IT IS BEING ENTERED 
IN LOCATION ‘LAD’. IF A SCOPE LOOP IS REQUESTED. THE 
CURRENT SUBTEST WILL BE LOOPED UPON. SW<11> GN A 1 INHIBITS 
ITERATION OF SUBTESTS. THE CONTENTS OF “LAD’’ MAY BE USED TO 
DETERMINE THE LAST SUBTEST SUCCESSFULLY COMPLETED. 


HLT 


THIS ROUTINE (CALLED BY AN EMT INSTRUCTION) PRINTS OUT AN 
ERROR MESSAGE (SEE 6.1). IF SW<9> IS ON A 1 AND A HLT IS 
EXECUTED, THE SUBTEST WILL BE LOOPED UPON UNTIL 16 
CONSECUTIVE GOOD PASSES ARE COMPLETED. TO INHIBIT TYPEOUTS. 

le: tabla ON A 1. TO RING THE BELL ON AN ERROR, PUT SwW<10> 


ALMCK 


IN THE NORMAL OPERATION THE ‘DONE’’ BiT IS SET AS EACH 
CHARACTER IS READ INTO THE FI/FO BUFFER (SILO). BUT THIS 
DONE" CONDITION CAN BE DELAYED TC CAUSE DONE ON THE 5. 9. 
OR 17 CHARACTER. THIS IS DONE BY CUTTING ONE OF THE JUMPERS 
(W1,W2.W3) ON THE He M7285 CON TROL BOARD. THE PROGRAM TESTS 
FOR THIS ‘SILO ALARM LEVEL" AND IF Swi2 IS SET (1) IT wILt. 
PRINT OUT THE LEVEL AT WHICH EACH DJ11 WILL SET "DONE." THE 
SUBROUTINE ALSO ADJUSTS THE CHARACTER. COUNTERS TO. ENSURE 


MUM 
MULTIPLE OF THE ig A sy LEVEL. a ENSURES THAT ALL 


NUMBE 
SILO ALARM LEVEL. (NOTE CHARACTER PRESENT IS SET ON EACH 
vr a IN THE BUFFER, REGARDLESS GF THE SILO ALARM 


TRAPCATCHER 


SEQ 0007 
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255 DESCRIPTION 
36 
258 ANY UNEXPECTED TRAPS AND A ‘',42°' = ‘‘[OT’’ SEQUENCE IS 
259 REPEATED FROM 60 ~ 776 TO DETECT ANY UNEXPECTED INTERRUPTS. 
360 THUS ANY UNEXPECTED TRAPS WILL HALT AT THE VECTOR + 2. ANY 
261 UNEXPECTED INTERRUPTS WILL RESULT IN AN ERROR ‘HLT’’ IN 
262 “TOTRAP'', 

263 

264 

265 ‘9 PROGRAM AND OPERATOR ACTION 

267 THE FOLLOWING REQUESTS ARE MADE TO THE OPERATGR AT THE 
268 BEGINNING OF THE PROGRAM. A DETAILED DESCRIPTION OF WHAT IS 
269 REQUIRED FOR EACH PARAMETER IS GIVEN BELLOW. 

2771 1) ‘FIRST Dstt ADDRESS: ‘’ 

272 THE CSR ADDRESS OF THE FIRST DJ1! YOU WISH TO 
273 TEST. MUST BE BETWEEN 160000(8) AND 177777(8). 
274 THE DEFAULT (CARRIAGE RETURN) IS TO 160010(¢8). 
275 *P(REVIOUS)’’ SELECTS THE ADDRESS PREVIOUSLY 
276 SELECTED. 

277 2) ‘VECTOR ADDRESS: °° 

278 THE RECEIVER INTERRUPT VECTOR ADDRESS OF THE FIRST 
279 DJ11 YOU WISH TO TEST. MUST BE BETWEEN 300(8) AND 
280 1000(8). THE DEFAULT (CARRIAGE RETURN) IS TO 
281 300(8). "P(REViOUS)’’ SELECTS THE ADDRESS 
282 PREVIOUSLY, SELECTED. 

283 3) ‘NO. OF DJ11'S: 

284 THE NUMBER OF DJ117 UNITS vou WISH TO TEST AT ONE 
285 TIME. MUST BE BETWEEN AND 16. THE DEFAULT 
286 (CARRIAGE RETURN) IS 10 1. ‘P(REVIOUS)"’ SELECTS 
287 THE NUMBER OF UNITS. PREVIOUSLY SELECTED. 

288 4) "'STANDARD CONF IGURAT ION? 

289 'Y(ES)"" OR DEFAULT (CARRIAGE RETURN) SELECTS 8 
290 LEVEL CODE, NO PARITY. ‘°WN‘O)** CAUSES REQUESTS FOR 
291 CODE LEVEL AND PARITY ON ALL REQUESTED LINES IN 
292 GROUPS OF FOUR. PCREVIOUS)** SELECTS THE CODE 
293 LEVELS AND PARITIES PRr VIOUSLY SELECTED. 

294 5) "CHAR LENGTH: 

295 THE CODE LEVEL FOR THE LINE GROUP SPECIFIED. MuST 
296 BE 5, 6, 7, OR 8. THE DEFAULT (CARRIAGE RETURN) 
297 ™S TO 8 LEVEL CODE. 

298 6) "PARITY (NO, ODD, EVEN): ‘“° 

299 THE TYPE QF PARITY SELECTED FOR THE LINE GROUP 
300 SPECIFIED. THE DEFAULT (CARRIAGE RETURN) IS TO NO 
301 PARITY. 

302 

303 

304 6. ERRORS 

306 

ae 6.1 ERROR PRINTOUT 

309 THE FORMAT IS AS FOLLOWS: 


a OS SE SN OE EO 
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3106 
317 ADR DJSDR (R1) (R22) (R3)~ (RG) 





eg | es, 
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314 

315 | 

a3 WHERE : 

312 ADR = ADDRESS OF ERROR HLT 

319 DJADR = CSR ADDRESS OF DJ11 UNDER TEST 

320 (RN) = CONTENTS OF GENERAL REGISTER ‘N’’. FROM NONE TO 
321 FOUR OF THESE MAY BE TYPED DEPENDING ON THE NUMBER 
322 FOLLOWING THE HLT; £.G., HLT+3 WOULD TYPE (R71) 
323 THRU (R3): HLT (BY iTSELF) WOULD STUP AFTER TYPING 
336 ADR AND DJADR. 

326 TO FIND THE FAILING TEST, LOOK AT THE LISTING ABOVE THE 
327 ADDRESS TYPED. IN MOST CASES THE COMMENT BESIDE TYE HLT 
328 TELLS WHAT WAS BEING CHECKED AND WHAT WAS EXPECTED. ALSO, A 
329 LIST OF THE PROBABLE FAILING LOGIC IS GIVEN IN THE COMMENTS 
330 AT THE BEGINNING OF THE TEST. 

332 

333 6.2 ERROR RECOVERY 

335 RESTART AT 200 GR 1000. 

336 

337 

338 6.3 ERROR COUNTER 

340 AN ERROR COUNT IS KEPT IN “ERRORS’’. IT CAN BE CLEARED FROM 
341 THE CONSCLE, BY RESTARTING AT 200. OR BY RELOADING THE 
342 PROGRAM. 

34% 

344 

345 ¥. RESTRICTIONS 

347 F MORE THAN ONE DJ11 IS TESTED AT A TIME, THE DEVICE 
368 ADDRESSES AND THE VECTOR ADDRESSES MUST ALL BE CONTIGUOUS. 
350 IF THIS PROGRAM IS RUN WITH A MONIiOR, I.E. ACT11 OR DDP. 
351 THE DEVICE ADDRESSES MUST FOLLOW THE FLOATING ADDRESS 
336 CONVENTION. 0D.J11'°S WILL BE FIRST, STARTING AT 160010.. 

354 

355 8. MISCELLANEOUS 

2 

358 8.1 EXECUTION TIME 

360 DUE TO THE VERIOUS BAUD RATES AVAILABLE AND THE ABILITY 70 
361 7) '' WHAT ARE THE BR PRIORITIES? FOR:' 

362 ‘DEVICE 15°" 

363 "9 DEVICE oe aft ETC. 

364 WILL GO TO THE NUMBER OF DEVICES SPECIFIED 

365 IN QUESTION 5 ABOVE PRIORITIES ALLOWED ARE Q THROUGH 

364 16 DJ11'S AT ONCE, THE EXECUTION TIME CAN BE 


CHECK UP 10 
367 ANYWHERE FROM 15 SECONDS TO THREE AND HALF HOURS. THE 
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FOLLOWING TYPICAL TIMES ARE FOR ONE DJ11 WITH ALL LINES AT 
THE SAME SPEED, 8 LEVEL CODE, 2 STOP BITS, AND NO PARITY ON 
A PDP=11/20 WITHOUT TRACE TRAPPING. FOR MULTIPLE DJ11°S, 
we THESE TIMES BY THE NUMBER OF UNI‘S SELECTED FOR 


BAUD RUN TIME 


SEQ OOI2 
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8.3 


9600 00: 00: 15 


STACK POINTER 
STACK IS INITALLY SET TO 1200 


PASS COUNT 


A 32 BIT (2 WORDS) PASS COUNT IS KEPT IN PCNT. IT CAN BE 
CLEARED FROM THE CONSOLE, BY RESTARTING AT 200, OR BY 
RELOADING THE PROGRAM. 


POWER FAIL 


EACH TEST CAN BE POWER FAILED WITH NO ERRORS. TO USE, START 
THE TEST AS USUAL AND POWER DOWN THEN UP AT ANY TIME. THE 
ROUTINE SHOULD TYPE “POWER'' AND RESTART THE PROGRAM WITH NO 
OTHER ERROR TYPEOUTS. 


PROGRAM DESCRIPTION 


HIS PROGRAM TESTS THE LOGIC OF UP TO 16 DJ11 ASYNCHRONOUS 
DATA MULTIPLEXERS IN MAINTENANCE MODE. IT CHECKS THAT ALL 
THE CONTROL REGISTERS FUNCTION PROPERLY, THAT INTERRUPTS 
OCCURE AT THE RIGHT PRIORITY LEVEL. AND THAT DATA CAN BE 
TRANSMITTED AND RECEIVED CORRECTLY. THE PROGRAM HAS MANY 
SUBTESTS (THE CODE BETWEEN 2 SCOPE go gegee cree og ~ 


] UB SHOUL RUN 
STARTING AT 200 NOT BY STARTING AT THE BEGINNING OF THE 
A PAR SUBT T 


mn 
_ sie 
i 
” 
vo 
--s 
5 
ae 
= 
“ 
“om 
no ~< 
— 
rm 
_& 
— 
aa 
4] 
= 
oe 
—~ 
| 
z 


<8> T WILL BE LOOPED UPON 
UNTIL SW<8> IS PUT ON A 0 OR THE RIGHT BYTE IS CHANGED. IF 


SEQ 001% 
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434 DESCRIPTION 

236 

437 PERFORMED ON ONE UNIT AT A TIME. THE BELL WILL NOT RING AND 
438 EOP PRINT, UNTIL A PASS HAS BEEN MADE ON EACH OF THE DJ11°S 
439 SELECTED FOR TEST. 

tet : 

442 .TITLE 2Z7-CZDJA-F-0 DJ11 LOGIC TESTS 

443 -ENABLE ABS 

444 -ENABLE AMA 

645 : COPYRIGHT 1972,1979 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 
4b 

447 

448 > SWITCH USE 

450 100000 Sw15= 100000 ;HALT ON ERROR 

451 040000 SW14= 40000 “LOOP ON TEST 

452 020000 Sw13= 20000 : INHIBIT ERROR TYPEOUTS 

453 0100 90 Swi2= 10000 :PRINT SILO ALARM LEVEL 

454 004000 SWi1= 4000 ; INHIBIT ITERATIONS 

455 002000 Sw10= 2000 70 = BELL ON PASS COMPLETE 

456 :1 = BELL ON ERROR 

457 001000 Sw9= 1000 :LOOP ON ERROR 

458 000400 SW8= 400 ;LOOP ON TEST IN SwW<7:0> 

459 REM! 

461 DJ11 REGISTER BIT ASSIGNMENTS: 

463 CONTROL STATUS REGISTER (CSR) XXXXXxO0 

464 BITO RECEIVER ENABLE (READ/WRITE) 

465 BIT] | HALF DUPLEX SELECT (READ/WRITE) 

466 BIT2 MAINTENANCE (READ/WRITE) 

467 BIT3 CLEAR MOS (WRITE ONLY) 

468 BIT4 CLEAR MOS FLAG (READ ONLY) 

469 BITS NOT USED 

470 BIT6 RECEIVER INTERUPT ENABLE (READ/WRITE) 

471 BIT7 DONE ¢ 

472 BITS MASTER TRANSMITTER SCAN ENABLE (READ/WRITE) 
473 BIT9 T USED 

476 BIT10 READ/URITE BREAK REGISTER (READ/WRITE) 

475 BIT11 NOT USED 

476 B1T12 STATUS ENABLE (READ/ WRITE) 

477 BIT13. FI/FO OVERRUN (READ ONLY) 

478 BIT14 MASTER TRANSMITTER INTERUPT ENABLE (READ/URITE) 
“79 BIT15 TRANSMITTER READY (READ ONLY) 

481 RECEIVER BUFFER REGISTER (RBUF) XXXXX2 (READ ONLY) 

483 BITO-7 RECEIVED CHARACTER 

484 BIT8-11 LINE NUMBER 

485 BIT12 PARITY ERROR 

486 BIT13. FRAMING ERROR 

487 BIT14 UART OVERRUN ERROR 

488 BIT15 CHARACTER PRESENT 
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TRANSMITTER CONTROL REGISTER (TCR) XXXXX4 (READ/WRITE) 
BITO-15 STOP THE SCANNER ON CORRESPONDING LINE 
TRANSMITTER BUFFER (TBUF) XXXXX6 


BITO-7 TRANSMITTED CHARACTER (WRITE ONLY) 
BIT8-11 LINE NUMBER (READ ONLY) 


BREAK CONTROL STATUS REGISTER (BCSR) XXXXX4 (BIT10 OF CSR SET) (READ/WRITE) 
BITO-15 TRNSMIT A BREAK ON CORRESPONDING LINE! 


SCOPE= TRAP 
HL T= EMT 
TYPE= OT 
PS= 177776 
RO= 0 
R1= %1 
Re= ae 
R3= 45 
R4= 24 
R5= %> 
TTY= z5 
SP= %6 
PC= a7 
BELL= 7 
BITO= 1 
BITI= 2 
BIT2= 4 
BITS5= 10 
BIT4= 20 
BIT5= 40 
BIT6= 100 
BIT7= 
BIT8= 400 
BIT9= 1 
BIT10= 2000 
BIT11= 4000 
Ti2= 1 
BIT13= 20000 
T14= 40 
1715= 10 
LEVEL? = 340 
OPEN = Q 
DJMXNO=16. sMAX ALLOWED NUMBER OF DJ17°S 
STACK =1200 
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000000 


000046 


000174 
000176 


000200 
0017000 


009000 
000000 


000046 
014450 


000174 


001200 
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0000C0 


001402 
002344 


000000 


MACY71 iio 


ATS 


SPECIFICATIONS 


0,0 
;LOCATIONS 4 THRU 56 CONTAIN 
:LOCATIONS 60 THRU 776 CONTAIN’ n 


DISPREG: 
SWREG: 


ALMFLG: 
TIMERA: 


46 
$SENDAD 


1200 
ADDRESS TABLES 
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¢ TRAP CATCHER IN LOCATIONS 0 THRU 776 


aap QO AND 2 CONTAIN ‘HALT’’ INSTRUCTIONS 


THE CHARACTER LENGTH FOR THE 4 


"'HALT'' IN EVERY VECTOR 
+2 AND ‘TOT’ IN EVERY VECTOR 


3200 ALWAYS IS THE STARTING ADDRESS 
7RESTART ADDRESS 


“'LENGTH'’ TABLE IS SET SO THE FIRST i tar BYTES (2 WORDS) CONTAIN 
LINE GROUPS OF THE FIRST DJi1, 


“PARITY** TABLE HAS 4 WORDS, ONE FOR EACH LINE GROUP. THE FIRST — CONTAINS 
WORD 


EMC. 


THE ODD PARITY FLAGS FOR LINES 0-3 OF ALL DJi1'S. THE NEXT 
HAS PARITY FLAGS FOR LINES 4-7, ETC. EACH BIT IN THE WORD REPRESENTS 
CS tae 0 IN EACH OF THE FOUR WORDS IS FOR DJ/O TO RIT 


OoOooeoco 


oad sad 
oO AO 


60010 
0 


Oooo “Ss —_ Ww 


: .BLKB 100 


>FIR 


: TABLE OF CHAR. LENGTHS (MASK? 
;ODD PARITY FLAGS FOR LINES 0-3 
:ODD PARITY FLAGS FOR LINES 4-7 
:O0DD PARITY FLAGS FOR LINES 10-13 


2:0DD PARITY FLAGS FOR LINES 14-17 
; ITERATION COUNT-LH. TEST NO.-RH 
SERROR COUNT REGISTER 
>PASS COUNT REGISTER 


CONTROL STATUS REGISTER(DJ UNDER TEST) 
;RECEIVER BUFFER REGISTER(DJ UNDER TEST) 

; TRANSMITTER CONTROL REGISTER(DJ —" TES?) 
;BREAK STATUS REGISTER(DJ UNDER TEST) 

; TRANSMITTER BUFFER REGISTER(DJ UNDER TEST) 


T DEVI 
T VECT 


NUMBER 0 


T 
FLA 
C 


RECEIVER INTERUPT VECTOR ADDRESS(DJ UNDER TEST) 
; TRANSMITTER INTERUPT VECTOR ADDRESS(DJ UNDER TEST) 


CE ADDRESS(SELECTED? 
OR ge ea 
TO BE TESTED 


VE 
FOR 
RS 


F UNITS 
- Y RELATIVE TIMES 
OUNTE 


SILO ALARM LEVEL 


SEQ 0017 
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293 001354 000000 TIMERB: 0 | 

5994 001356 000000 COUNT: Q ; CHAR COUNTER 

row 001560 000000 SUM : 0 ;SUMATION OF ALARM LEVEL CHAR’'S 
297 001362 000000 DJUUT: 0 UNIT NUMBER OF DJ11 UNDER TEST 
398 001364 000000 DJLEN: Q ;CHAR MASK TABLE POINTER 

549 001366 000000 DJPAR: Q sUNIT FLAG (FOR ODD PARITY FLAG) 
600 001370 160010 DEFADR: 160010 sDEFAULT FIRST DEVICE ADDRESS 
or 001372 00300 DEFVEC: 300 sDEFAULT FIRST VECTOR ADDRESS 
603 001374 177570 SWR : 177570 

604 007376 177570 DISPLAY:177570 

605 

606 

607 Q071400 177777 FTIME: =1 
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22-CZ2ZDJA=F=Q D0J11 LOGIC 21> MACY11 30A(1052) eenr eae? 15:47 PAGE 20 


CZ7DUAF .P11 C6~-FEB=79 15:4 SETUP AREA SEQ 0019 
610 
611 00171402 012706 001200 BEGIN: MOV ASTACK, SP ;SET UP STACK POINTER 
612 001406 004737 017524 JSR PC SUSWRR ;CHECK FOR SWITCH REGISTER 
613 001412 612700 000020 MOV #20,R0 
614 001416 012726 016364 MOV #IOTRAP,(RO)+ = :JOT VECTOR (20) 
615 001422 012720 000340 MOV #340, °(RO)+ 
616 001426 012720 014224 MOV #PDOWNS, (RO) + sPOWER FAIL VECTOR (24) 
617 001432 072720 000340 MOV #340, °(RO)+ 
618 001436 012720 015254 MOV #EMT$, (RO)+  <EMT VECTOR (30) 
619 001442 012720 000340 MOV #340, (RO)+ 
620 0014446 012720 015112 MOV MTRAP$, (RO)+ s TRAP VECTOR (44) 
621 001452 012720 000340 MOV #340,  (RO)+ 
622 001456 005037 001312 CLR ERRORS :CLEAR ERROR COUNTER 
623 001462 005037 001314 CLR PCNT =CLEAR PASS COUNTER 
624 001466 005037 001216 CLR PCNT+2 
625 001472 005037 001350 CLR ALMFLG 
626 001476 005737 000042 TST a4 2 :CHECK FOR ACT11 OR DDP PRESENT 
627 001502 001404 BEQ GETADR =BRANCH IF NONE 
628 001504 004737 017304 JSR PC, AUTO  :GO TO SUBROUTINE TO ‘MAP’’ DJ11 ON THE SYS 
iM 001510 000137 002344 JMP QABR :SKIP OPERATOR ACTION 
631 001514 000004 017013 GETADR: TYPE, MTITLE 
&32 001520 000004 016524 TYPE. RETURN 
633 091524 000004 016532 TYPE, | MSGADR :TYPE ‘FIRST DJi1 ADDRESS’’ 
634 001530 004537 015476 JSR R5, READIN :READ INPUT FROM TTY AND SAVE 
635 001534 001340 .WORD  DEVADR > IN DEVADR 
636 001536 001366 | BNE GETADR “BRANCH IF BAD INPUT 
537 001540 005737 001340 TST DEVADR 
638 001544 001003 ! BNE 1$ 
639 001546 013737 00.370 001340 MOV DEFADR,DEVADR 
640 001554 042737 000007 0G1340 1s: BIC #7 ,DEVADR 
641 001562 022737 160000 001340 CMP #160000, DEVADR 
642 001576 101351 BHI GETADR 
644 001572 000004 016562 GETVEC: TYPE, | MSGVEC :TYPE "VECTOR ADDRESS:"' 
645 601576 004537 015476 JSR sR, READIN =:READ INPUT FROM TTY AND SAVE 
646 001602 001342 .WORD VECADR > IN VECADR 
647 001604 001372 BNE GETVEC [BRANCH IF BAD INPUT 
648 001606 005737 001342 ST VECADR >CHECK FOR CR 
649 001612 601003 BNE 1$ 
650 001614 012737 000300 001342 MOV #300, VECADR :SET TO FIRST FLOATING VECTOR 
651 001522 042737 000007 001342 1$: BIC #7 VECADR :CLEAR TO MODULO 10 
652 001630 022737 000300 001342 CMP #300,  VECADR :CHECK FOR LOW LIMIT 
653 001636 003355 BGT GETVEC 
001640 022737 001000 601342 CMP #1000, VECADR ;CHECK FOR UPPER LIMIT 
655 001646 003751 BLE GETVEC 
656 001650 000904 016606 GETNUM: TYPE, | MSGNUM ; TYPE" NUMBER OR UNITS:** 
657 601654 737 015644 JSR PC READS READ INPUT FROM THE TTY 
658 : CHECK STRING FOR VALID DIGITS, TERMINATOR.AND ' 
659 001660 012702 015772 MOV #INPUT ,R2 :POINTS TO INPUT STRING 
660 001664 7112201  MOVB (Re) +, R} =LOAD 1ST CHAR 
661 001666 001434 BEQ 1$ ‘BRANCH IF IMMEDIATE TERMNATOR 
662 001670 122701 000120 CMPB #1 =CHECK FOR A 
663 001574 001445 BEQ CONF IG ; CONF I GURE MODE IF SO 
664 001676 120127 000971 (MPB eR, #771 “MUST BE A WALID ASCII NUMBER 


665 001702 101562 BH GE TNUM sELSE RETR 





ZZ-CZDJA=F=-0 DJ171 LOGIC TESTS 
CZDJAF .P11 


162701 
005757 


000402 
012701 


020127 
101327 
010137 
012757 


C6-FEB=79 15:41 


000060 


000071 


000060 


016052 
016676 


MACY11 30A(1052) 
SE 


007 362 


015772 


015772 


015772 


CONFIG: 2 


SSS: 


DDD: 


TYPLIN: 


26-F EB-79 
TUP AREA 
SUB #60,R1 
BLE GE TNUM 
:1ST CHAR IS A VAL 1D DIGIT, 
TSTB (R2)+ 
BEO 3$ 
TSTB (R2) 
BNE GE TNUM 
CMPB ss =(R2) , #71 
BH] GE TNUM 
MOVB (R2) .R3 
SUB #60,R3 
BM] GE TNUM 
:BOTH LOW AND HIGH ORDER DIGITS 
MOV R1,-(SP) 
ASL R1 
ASL R1 
ASL R1 
ASL (SP) 
ADD (SP)+,R1 
ADD R3,R1 
BR t 
MOV 
CMP 
BHI GE TNU4 
MOV R1UNIiS 
MOV #100, DsUUT 
TYPE , MSGCON 
JSR PC, 
(MPR o#t'P, 
BNE AAA 
JMP QABR 
MOV #64, 
MOV #LENGTH,R1 
CLR — {R1)-¢ 
DEC RO 
BNE 18 
TSTB INPUT 
BNE SSS 
JP QABR 
CMPB #131, 
BNE DDD 
JMP QABR 
CMPB #116, 
BNE CONF IG 
CLR RO 
CLR R1 
MOV #LENGTH,Re 
MOV #PARITY,R3 
MOV 1,R4 
TYPE, MSGLIN 
MOV R1,TTY 
JSR PC PRINTS 
TYPE, MSGDAS 


H 2 
15:47 PAGE 21 


ioe ASCI1 CODE 
HOULDN'T BE ZERO OR NEG 


1 rH . ~ CHECK REST oF STRING 


CHAR A TERMINATOR? 
;YES = R1 HAS THE FINAL # OF UNITS 
:NO = NXT CHAR MUST BE THE TERMINATOR 
7ELSE RETRY. 
:CHECK 2ND CHAR FOR A VALID NUMBER 


;MAKE IT MORE ACCESSIBLE 

:STRIP ASCII CODE 

; SHOULDN'T BE NEGATIVE 

ARE OK = CONVERT DECIMAL VALUE. 
:SAVE IT FOR LATER 

7:MULT HI ORDER BY 8 


sMULTIPLY IT BY 2 
sRESULT IS (HI ORD)*10. 
sNOW ADD IN THE LOW ORDER 


LOAD DEFAUL? VALUE HERE 


#1.R 
THE cOWWERTED waar ” COMPARE — MAX ALLOWED. 


:T00 BI 

: YES ~ RETRY. 

;VALUE OK ~ STORE RESULT 

;’ PRIME’’ UNIT UNDER TEST NUMBER 


TYPE “STANDARD CONF IG?*" 
READ INPUT FROM iTY 

> CHECK FOR *P”’ 

; GO THRU IF NOT PREVIOUS 
; BRANCH IF oo 


:POINT TO CHAR LEN TABLE 
sPUT C FOR 8 IN CHAR TABLE 
ZAND CLR PARITY TABLE 


t DOWN 
;BRANCH IF NOT DONE 
2 CHECK FOR CR 

; GO THRU IF NOT DEFAULT 

> BRANCH IF DEFAULT 
; CHECK FOR *'y"’ 

GO THRU IF NOT DEFAULT 
: err IF DEFAULT 

; CHECK _ 

“BRANCH IF ILLEGAL ENTRY 

:CLR UNIT COUNTER 

>CLR LINE COUNTER 

7SET UP POINTER TO CHAR MASK TABLE 
:SET UP POINTER TO PARITY TABLE 

UP MARKER 


: TYPE “LINES ** 


; TYPE R1_ IN OCTAL 
re pine ZERO'S 
“TYPE A DASH (=) 


SteG 0020 
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CZDJAF.P11 26=FEB-79 15:41 SETUP AREA SEG 0027 
722 002142 062701 000003 ADD #3, RI | :LAST LINE IN GROUP OF 4 
723 002146 010105 MOV R1.TTY TYPE R1 IN OCTAL 
724 002150 004737 016052 JSR PC PRINTS “AND SUPRESS LEADING ZERO’S 
725 002154 005201 INC RI “FIRST LINE NEXT GROUP 
726 002156 000004 016702 GETLEN: TYPE, | MSGLEN “TYPE ''CHAR LENGTH: °° 
727 002162 005037 015770 CLR INHRE 
728 002166 004737 015644 JSR PC, READS ;:READ FROM THE TTY 
729 002172 105737 015772 TSTB  —sINPUT “CHECK FOR CR (DEFAULT) 
730 002176 001421 BEQ GETPAR “BRANCH IF DEFAULT 
731 002200 105737 015773 TSTB ss NPUT+1 >CHECK FOR BAD DATA 
732 002204 001364 BNE GETLEN “BRANCH IF BAD 
733 002206 162737 000060 015772 SUB #60, INPUT :CONVERT FROM ASCII 
734 002214 112712 177777 MOVB so f=1. (R2) °SET UP MASK 
735 002220 106312 2$: ASLB — (R2) =CLEAR MASK BIT BY BIT 
736 002222 103355 BCC GETLEN “BAD INPUT, > 8 
737 002224 105337 015772 DECB —sCINPUT > COUNT 
738 002230 001373 BNE 2$ *BRANCH IF NOT DONE 
739 002232 132712 000037 BITB—so#'37,, (R2) CHECK FOR 5 CHAR 
740 002236 001347 BNE GETLEN “BAD INPUT, < 5 
741 002240 005202 INC R2 :INC TO NEXT LINE GROUP 
742 002242 000004 016723 GETPAR: TYPE, MSGPAR “TYPE "PARITY (NO. ODD. EVEN): 
743 002246 005037 015770 CLR INHRE 
744 002252 004737 015644 JSR PC ,READS :READ INPUT FROM TYY 
745 002256 005737 015772 TST INPUT >CHECK FOR CR 
746 002262 001415 BEQ 3$ *BRANCH IF DEFAULT 
747 0022464 122737 000116 015772 CMPB ss #116, INPUT >CHECK FOR 'N’" 
748 002272 001411 BEQ 3$ [BRANCH IF “NO’’ 
749 002274 122737 000105 015772 CMPB  —s- #105, INPUT = CHECK FOR '€"' 
750 002302 001405 BEQ 3$ [BRANCH IF ‘EVENT’ 
751 002304 122737 000117 015772 CMPB so #'117., INPUT >CHECK FOR ‘O"" 
752 002312 001353 BNE GETPAR :BRANCH IF NONE | 
753 002314 050413 BIS RG (R3) SET THE ODD PARITY FLAG 
754 002316 005723 3$: TST (R3)+ :POINT TO THE NEXT PARITY WORD 
755 002320 032701 000017 BIT #17,R1 :CHECK FOR NEXT UNIT 
756 002324 001277 BNE TYPLIN [BRANCH IF NOT 
757 002326 012703 001300 MOV #PARITY.R3 =RESET PARITY TABLE POINTER 
758 002332 006304 ASL RG >FLAG TO NEXT UNIT 
759 002334 005200 INC RO =COUNT UNITS 
760 002336 020037 001344 CMP kO,UNITS >CHECK FOR LAST 
763 002342 001270 BNE TYPLIN [BRANCH IF MORE 
763 ROUTINE TO GET BUS PRIORITIES FOR INDIVIDUAL DJ171S 
765 002344 000004 017051 QABR: TYPE,  MSBR : TYPE QUESTION- BR PRIORITES??? 
766 002350 012737 000061 017210 MOV #61, | DEVNUM = LOAD UP INITIAL DEVICE # 
767 002356 012737 000061 017212 MOV #61, UNITS? ; LOAD FIRST UNIT FOR BR QUESTION 
768 002364 010446 MOV R4,-(SP) : SAVE CONTENTS OF R4 
769 002366 012704 017232 MOV #PRIBLE+2,.R4 : SKIPPING FIRST TABLE LOCATION 
770 > TO ALLOW ROUTINE BRSET TO wORK 
771 002372 063737 001344 017212 ADD UNITS.UNITS1  ; LOAD TOTAL UNITS IN UNITS? 
772 002400 917174 DEVNEW: TYPE, VICE > TYPE OUT I¢ 
002404 000004 017210 TYPE, | DEVNUM : TYPE DEVICE NUMBER 
774 002410 000004 000075 TYPE, ‘= : AN EQUAL SIGN 
775 002414 004737 015644 JSR PC ,READ$ : GO READS IN NUMBER(ASCII) 
776 002420 023727 015772 000060 CMP INPUT , #60 > CMP DECIMAL 7 AND BR INPUT VALUE 
777 002426 100415 BM] NOGOOD : REPORT ER ROR 


Z22~CZDJA=F=Q0 DJ11 LOGIC TESTS 
CZ2DJAF .P11 


022737 


012604 


C6-FEB=79 15:41 


000067 
015772 


017210 
017212 


017117 


MACY11 30A(1052) 


015772 


017210 


CMP #67, INPUT 


NOGOOD 
MOV INPUT ,(R4) + 
INC DE VAIUM 
CMP UNITS1,DEVNUM 
DE VNEW 


BNE E 

BR AROUND 
NOGOOD: TYPE, MSBAD 

BR DE VNEW 


AROUND: MOV (SP)+, 


J 2 
26-FEB-79 15:47 PAGE 23 
SETUP AREA 


; CHECK IF A VALID ENTRY 


; REPORT ERROR 

; STORE VALUE OF PRIO 

; TO NEXT DEVICE # (IN ASCII) 

; ARE YOU TESTING LAST DEVICE??? 
; BACK IF MORE DEVICES 

; THRU IF ALL DEVICES FINISHED 

; TYPE ERROR IN INPUT VALUE 

; BACK TO ASK AGAIN 

; RESTORE R4 


c f if 
SEQ JSVe c 


AF 


.F11 


ZZ-CZ2ZDJA=F-0 DJ11 Ne 
C2DJ 26-FEB-79 


ESTS 
1 


TES 
15:4 


001200 
001400 
000176 
017604 
001400 
000300 
177776 


001310 
015250 


MACY11 30A(1052) 
SE 


001574 


001320 
001330 
001364 


001344 


RESTAR: 


23: 





K 2 
15:47 PAGE 24 


26-F EB-79 
TUP AREA SEQ 002% 
RESET ; ISSUE RE“E 
MOV #STACK, SP “SET UP STACK POINTER 
TST FT IME 
BEQ CLRVEC 
CMP #SWREG, SWR 
BNE CLRVEC 
JSR PC, CNTLU 
CLR {ME 
: MOV #300,RO :BEGINNING OF FLOATING VECTORS 
TST (RO) + 
MOV RO,-2(RO) st" ont 
MOV #I10T, (RO)+ =*fOT"? 
CMP 1000,R 
BNE i 
ADD #10. SR SUPDATE DEVICE ADDRESS TO NEXT UNIT 
ADD #10,  RCVVEC [UPDATE DEVICE VECTOR ADDRESS 
ADD #4, DJLEN :MOVE CHAR TABLE POINTER 
ASL JPAR *UPDATE PARITY FLAG MARKEK 
CMP D.JUUT ,UNITS 
BLT 2$ 
CLR DJUUT 
MOV DEVADR, CSR 
MOV VECADR,.RCVVEC 
MOV A ENGTH,DJLEN  ;INIT CHAR TABLE POINTER 
MOV #1,DJPAR ‘INIT PARITY FLAG MARKER 
INC DJUUT 
MOV CSR, = R1 ;SET UP ALL THE REGISTER ADDRESSES 
ADD #2, R1 ZADD 
MOV R1. RBUF = ;SET UP RECEIVER BUFFER 
ADD #2, RI 2 
MOV Ri. TCR ;SET UP TRANSMITTER CONTROL REG 
: AND BREAK STATUS REG 
ADD #2, R1 ADD 2. 
MOV R1. TBUF § SET UP TRANSMITTER BUFFER 
MOV RCVVEC, R1 POINTER FOR VECTOR SETUP 
TST R1)+ ZINC RI 
MOV 1: RCVLVL :SET INT LVL 
1ST (Ri)+ R1 
MOV 1 XMTVEC : TRANSMITTER VECTOR 
TST (Ri)+ R1 
MOV R1, XMTLVL St INT LVL ADR 
CLR ICNT 
CLR AD 
SCOPE 





CZDJA 


012737 


012601 
104001 


C05726 
012737 


032777 


032777 
007401 
104900 


005077 
032777 
001401 
104000 


104400 


012777 
032777 
001001 
104000 


rT Ao gs -Q DJ11 LOGIC TESTS 
AF P11 26-FEB-79 


15:41 


003002 
000340 


1763524 


000006 
000006 


000002 
000002 


177775 


176236 
000002 


000004 
000004 


MACY11 


000004 
000006 


000004 


176266 
176260 


176246 


176230 


176214 
176206 


he 


STi: 


26-FEB-79 


TEST IF CSR EXISTS 


‘a 
15:47 PAGE 25 


‘it tt tee eee eee PPP PP PP PP PP PPPS PSC SCS CSC CSOSA. C2 2 2 


TEST ABILITY TO REFERENCE CSR WITHOUT TRAPPING 


~ Fest 1:2 


‘PROBABLE FAULTY LOGIC: 


AND ABILITY TO CLR CSR, 
M105; M7285 (D2-6) E29 


SOOO IOI IIIA ICICI RII UIEIE NEE TREE ERMA REAR EER EERO REE en eee 


TST1: 


1$: 


2$: 


#1$, ar, 
ALEVEL7 ,a46 
aCSR 


aCSR 
aCSR 
2$ 


2$ 
(SP)+,R1 


(SP) + 
#6, 044 


: CHECK CSR 
: BRAN 


;SET UP TIME-OUT TRAP VECTOR 


(READ) 
(WRITE) 
(READ AND WRiTE) 


oye CSR 
-CLEAR CSR 


CH IF OK 
:CSR NOT CLEARED 


;SKIP ISR 


: SAVE RTI ADR FOR TYPING 
CAN'T REFERENCE CSR! 


FINISH CLEARING STACK 


2 RARER AERA A ARERR AEAEEEEEKREKAAEERARERAAEEKAAEREAERERREREREERE RHEE REE RD 


31ES! 2: TEST 
:PROBABLE FAULTY LOGIC: 


THAT CSR BIT] CAN BE SET AND CLEARED 
M7285 (D2-2) E25,E7. (D2-4) E47.E64 


SeRRARERAREKRRERERERERRRERERRERREREERAERERARRERER ERE RER EE RRR REE EEE REE 


TSTe: 


#B1T1.aCSR 
wr? el cones 


#177775 ,aCSR 
+4 


aCSR 
vers Sli easse 


:SET BIT 
Da lig BIT? Is SET 


7 BRANC 

;CSR BIT FAILED TO SET 
:CHECK THAT NO OTHER BIT SET 
:BRANCH IF 

sEXTRA BIT SET IN CSR 


:CLEAR BIT1 
> CHECK GP ae IS CLEARED 


SBRANCH IF 
:CSR BIT? FAILED TO CLEAR 


J EAERERKERERAEEEEAAEEEREERERERERERAEARAERARARAAARERARARRARARARRERERARRER RRR EEE 


:TEST 3: 
;PROBABLE FAULTY LOGIC: 


TEST THAT CSR BIT2 CAN 
M7285 (D2-2) E25,E7, 


BE SET AND CLEARED 
(De-4) E47.E64 


fA EAREF ERE ER RARE ERAKEKEAARAKEAARAAKERERAARAERRARERRERERRERRERARREKRRE EERE 


TST3: 


MOV 
BIT 
BNE 
HLT 


#BIT2,aCSR 
wBlTe, aCSR 


SET BIT2 
;CHECK THAT BIT2 IS SET 
BRANCH IF 


: C 
:CSR BIT2 FAILED TO SET 





SEU 0024 















CZDJAF .P11 
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032777 
001401 
104000 


005077 
032777 
001401 
7104000 


104400 


012777 
032777 
001001 
104000 


032777 
001401 
104000 
005077 
032777 
001401 
104000 


104400 


012777 
032777 
001001 


104000 
032777 


177773 


176164 
000094 


000100 
000100 


177377 


176040 
000400 


MACY71 30A(1052) 
TST3: 


176174 


176156 


176104 


176070 
176062 


176050 


176032 








M 2 
26-FEB-79 eS: ior PAGE 26 


TEST BITe OF 





















BIT #177773,aCSR ;CHECK THAT NO OTHER BIT SET 
BEQ +4 :BRANCH IF OK 

HLT sEXTRA BIT SET IN CSR 

CLR @CSR ;CLEAR BIT2 

BIT #BIT2,aCSR ;CHECK THAT BIT2 IS CLEARED 
BEQ +4 ; CH IF OK 

HLT ;CSR BIT2 FAILED TO CLEAR 
SCOPE 





SRA KRAKAUER KhE 


TEST 4: 


TST4: 


TEST THAT CSR BIT6 CAN BE SET AND CLEARED 

;PROBABLE FAULTY LOGIC: M7285 (D2=2) E4,E18, (D2-4) E47,E64 
SERRE EERE RRR RR ER EERE RERERREREEE EERE REREAD 

MOV #81T6,aCSR ;SET BIT6 

BIT #B1T6,aCSR :CHECK THAT BIT6 IS SET 

BNE +4 BRANCH IF Ok 

HLT :CSR BIT6 FAILED TO SET 

BIT #177677 ,aCSR CHECK THAT NO OTHER BIT SET 

BEQ +4 ;BRANCH IF OK 

HLT zEXTRA BIT SET IN CSR 

CLR acSR :CLEAR BIT6 

BIT #B1T6,aCSR ;CHECK THAT BIT6 IS CLEARED 

BEQ . +4 BRANCH IF OK 

HLT :CSR GIT6 FAILED TO CLEAR 

SCOPE 


<fEsy 4: SERT SAY Gi Gate Gak Ot Gk) es ee 


hea >: 


“ S2EGRRERERERRANEREREAEROORRERERERRERRRAAEeeeeeeneeeeeeeccaneeeeeeeseces 


TST5: 


teeta gees take ae Atfen CUR ak det Ge eee 


TEST 6: TEST 
:PROBABLE FAULTY LOGIC: 


TEST THAT CSR BITS CAN CLEARED 
E FAULTY LOGIC: M7285 (D2-2) 6. E18. (D2-4) E47.£31 


MOV #B1T8.aCSR sSET BITS 

BIT #B1T8.aCSR :CHECK THAT BITS IS SET 

BNE +4 SBRANCH IF OK 

HLT :CSR BITS FAILED TO SET 

BIT #177377 .aCSR :CHECK THAT NO OTHER BIT SET 

BEQ +4 :BRANCH I 

HLT sEXTRA BIT SET IN CSR 

CLR acsR :CLEAR BITS 

oe 1 18,a0Se ; CHECK Ban BITS IS CLEARED 
.+ 

HLT “CSR BITS FAILED TO CLEAR 

SCOPE 


THAT CSR BIT1O CAN BE SET AND CLEARED 
M7285 (D2-2) E30.E24, (D2-4) £47,531 


ZZ~CZDJA-F-Q DJ11 LOGIC TESTS 
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012777 


032777 
001401 
104000 


005077 
032777 
007401 
104000 


104400 


012777 
032777 


032777 
001401 
104000 


005077 
032777 
001401 
104000 


104400 


012777 
032777 
001001 
104000 
052777 


001401 
104000 


005077 
032777 
001401 


26-FEB-79 15:4 


002000 
002000 


175777 


175766 
002000 


010000 
010000 


040000 
040000 


137777 


175642 
040000 


MACY11 30A(1052) 
TST6é: 


175776 


175760 


175744 
175736 


175724 


175706 


175672 
175664 


175652 


175634 


26-FEB-79 
TEST BIT10 OF 


TS 
2 
15: Hy PAGE 27 


SEERA RRR EERE KERR E REAR KR ARE REE EES 


TSTo: 


SCGPE 


#B1T10,aCSR 
oO TC OSA 
 . 


#175777 ,aCSR 
+4 


@CSR 
#B1T10,aCSR 
+4 


;SET BIT1 


0 
sCHECK THAT BIT10 IS SET 
;BRANCH IF OK 

:CSR BIT10 FAILED TO SET 


;CHECK THAT NO OTHER BIT SET 
;BRANCH IF OK 
sEXTRA BIT SET IN CSR 


;CLEAR BIT10 
sCHECK THAT BIT10 IS CLEARED 
H IF Ok 


;BRANC 
:CSR BIT10 FAILED 7O CLEAR 


SEAR REE EKER KEKKKEKEEKEKEEEEEREEREREAEEREKEKHKERRKKEKHKKKKhh 


STES! #2 
:PROBABLE FAULTY LOGIC: 


TEST THAT CSR BIT12 CAN BE SET AND 
M7285 (D2-2) £5,€1, 


AND CLEARED 
(D2-4) E47, 31 


“ RkeRKeRNRTERERREERRERERRERERREEREERERRARERRERERERRER REA REREERERRenaEnes 


TST?: 


SCOPE 


#B1T12.aCSR 
#B1T12,aCSR 


+4 


#167777 ,aCSR 
+4 


acSR 
#B1T12,aCSR 


+4 


:SET BITI2 
seeeae wr 3d Blit2 IS SET 


; BRAN 

:CSR BIT12 FAILED TO SET 
:CHECK THAT NO OTHER BIT SET 
BRANCH IF OK 

sEXTRA BIT SET IN CSR 


sCLEAR BIT12 
; CHECK ae IS CLEARED 


> BRANC 
:CSR BIT12 FAILED TO CLEAR 


TEER RAEREAKEAREAEEAREEARERERREKEERAAEEREKEREKERERRAERAEERAERAEKEEERRAEEREERERER 


TEST 10: 


PROBABLE FAULTY LOGIC: 


TEST THAT CSR BIT14 CAN BE SET AND 
M7285 (D2-2) E3.€1, 


CLEARED 
(D2-4) £47,231 


“Kk ReRRRRRRERAERRERARRRRERERAERRRERERERERERERRRRERRRRRA TERRE ERS EERE De 


TST10: 


#B1T14,aCSR 
ges Sa -aCSR 


#137777 ,aCSR 
+4 


acsR 
#81T14,aCSR 
+4 


sSET SIT14 
:CHECK THAT BIT14 IS SET 
IF OK 


: H 

:CSR BIT14 FAILED TO SET 

; CHECK THAT NO OTHER BIT SET 
BRAN H IF OK 

sEXTRA BIT SET IN CSR 


;CLEAR BIT14 
:CHECK THAT BIT14 IS CLEARED 
;BRANCH IF OK 


SEQ 0026 


ZZ=CZDJA=F-0 DJ11 LOGIC TESTS 
C2DJAF P11 


1003 
1004 


SEeeS 


COCOCSCV00CO 


WODWNAWUSWR--O 


003466 
003470 


104000 
104400 


012777 


022701 
001401 
104007 


052777 
017701 


26-FEB=79 15:41 


000004 


090010 
175604 
000070 


000020 
000004 
060001 
175536 
000001 


000005 


000001 
175500 
000004 


B 3 
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MACY71 30A(1052) 26-FEB-79 
TST10: TEST BIT14 OF CSR SEQ 0027 
HLT ;€SR BIT14 FAILED TO CLEAR 
SCOPE 


175620 
175610 


175542 
175530 


175516 


175504 
175472 


IORI IR IIUIII III IIOIIOIIIOIIOIIOIIUIOIOIOIIOIOIOIIOTOR TOI TOTO ER EERE EERE 

TEST 11: TEST THAT RECEIVER re aa (BITO OF THE CSR) CAN BE SET 
AND CLEARED, AND T CLEAR MOS (BIT3) IS WRITE ONLY 

® PROBABLE FAULTY LOGIC: M7285 (Do-2) E26, E36,€7,E24, (D2-8) £17,€14, E15 


SRT OTR kk HEE RRR REE ERA RENEREEEERAEREEREAR OR nee 


TST11:. MOV #BIT2, @CSR  ;SET MAINTENANCE MODE (BIT2) 
CLR RS -SET UP COUNTER 
BIS #B1T3, @CSR :SET CLEAR MOS (BIT3) 
1$: MOV acsR, Ri “SAVE C 
BIT #BIT3, R1 ‘CHECK CLEAR MOS (BIT3) 
BEQ +4 “BRANCH IF OK 
HLT +1 “CLEAR MOS (BIT3) SET (WRITE-ONLY) 
:R1 = CONTENTS OF CSR 
BIT #BITS, R1 :CHECK CLEAR MOS FLAG 
BEQ 2$ ‘BRANCH IF CLEARED 
DECR sa :WAIT FOR MOS TO CLEAR 
BNE 1$ “BRANCH IF MORE TIME 
HLT +1 :CLEAR MOS FLAG (BIT4) FAILED TO CLEAR 
:R1 = CONTENTS OF CSR 
2$: CMP WBIT2, R1 >CHECK THAT ONLY MAINTENANCE BIT SET 
BEQ +4 “BRANCH IF OK 
HLT +1 CLEAR MOS CLEARED MAINTENANCE 
OR SET OTHER CSR BITS 
:R1 = CONTENTS OF CSR 
BIS #WBITO, aCSR  :SET RECEIVER ENABLE 
MOV acsR, 1 :SAVE CSR 
BIT #BiT0, acsR : CHECK THAT RECEIVER ENABLE SET 
BNE +4 H IF OK 
HLT +1 RECEIVER ENABLE FAILED TO SET 
-R1 = CONTENTS OF CSR 
CMP “5, @CSR §_:CHECK REST OF CSR 
BEQ % SBRANCH IF OK 
HLT+1 :CSR ERROR 
:R1 = CONTENTS OF CSR 
;NOTE: IF THE TTY MODULE IS BEING USED AND DONE (BIT?) IS SET. 
; THE ERROR COULD BE DUE TO MAINTENANCE OR CLEAR MOS NOT WORKING. 
BIC #WBITO, aCSR  :CLEAR RECEIVER ENABLE 
MOV acsR, 1 7SAVE CSR 
CMP #B1T2, acSR  :CHECK CSR 
BEQ +4 [BRANCH IF OK 
HLT +1 :RECEIVER ENABLE DIDN' T CLEAR 
OR OTHER CSR BIT SET 
“Ri = CONTENTS OF CSR 
SCOPE 
gE E ERA RRA ERA AAR ERARAE AE ERRAARARRE RE RRR ERR EERE eS 
> TEST 12: TEST THAT CSR RESPONDS PRO!'ERL Y TO BYTE COMMANDS 


PROBABLE FAULTY LOGIC: M7285 (D2=4) E 


SPAR TRTT ea Tadeo is ce cesar tee nnedbdckcéiniddinawndedunenns 





C2 
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CZDJAF .P11 26-FEB-79 15:41 TST12: TEST BYTE ADDRESSING OF CSR StQ 0028 
1059 003634 012777 052506 175456 TST12: MOV #052506,aCSR ;SET TEST NUMBER IN CSR 
1060 003642 105077 175452 CLRB aCSR iCLR EVEN BYTE 
1061 003646 017701 175446 MOV acsR, R1 ;SAVE CSR 
1062 003652 022701 052400 CMP #052400,R1 ; CHECK CSR 
1063 (€03656 001401 BEQ +4 ;BRANCH IF OK 
1064 003660 104001 HLT +1 7 EVEN BYTE CLR FAILED ON CSR 
1065 RI = CONTENTS OF CSR 
1066 003662 012777 052506 175430 MOV #052506,aCSR “SET TEST NUMBER IN CSR 
1067 003670 005237 001320 INC CSR 7; INC TO ODD BYTE 
1068 003674 105077 175420 CLRB aCSR “CLR ODD BYTE 
1069 003700 005337 001320 DEC CSR ZRESTORE TO EVEN 
1070 003704 017701 175410 MOV acsR, R1 7 SAVE CSR 
1071 003710 022701 000106 CMP #000106,R1 7; CHECK CSR 
1072 003714 001401 BEQ +4 ;BRANCH IF OK 
1073 003716 104001 HLT+1 ;ODD BYTE CLR FAILED ON CSR 
hy 3R1 = CONTENTS OF CSR 
in 003720 104400 SCOPE 
1078 FREER REE REE E RE A RE RREEE RE EEAREREEEREEEKEEKEKREKEEERERAEREEKERERAKKHHHKE 
1079 - TEST 13: TEST THAT Ning BIS AND BIC INSTRUCTIONS SET AND CLEAR R/wW 
1080 BI TS OF CSR 
1081 ® PROBABLE FAULTY LOGIC: M7285 (D2-4) E47 
1082 PREECE ERE REEERAAEEEEEEAKKEEEERERKEREKEEEKAEKEERKEKKEH EEE 
1083 
1084 003722 005077 175372 TST13: CLR acsR ;CLEAR THE CSR 
1085 003726 017701 175366 MOV acsR, R1 : CHECK AND SAVE CSR 
1086 003732 901401 BEQ +4 BRANCH IF CLEARED OK 
cae 003734 104001 HLT+1 ;RESET FAILED TO CLR CSR 
1089 003736 052777 052506 175354 BIS #052506, acsR ;SET ALL R/W BITS OF CSR 
1090 003744 022777 052506 175346 CMP #052506, acsR ;CHECK THAT THEY GOT SET 
1091 003752 001401 BEQ . +4 SBRANCH IF OK 
4 003754 104000 HLT sREG FAILED CMP 
1094 603756 042777 052506 175334 BIC #052506, aCSR Fry eb CSR 
1095 003764 017701 175330 MOV acsR, Ri ;CHECK AND SAVE CSR 
1096 003770 0C1401 BEQ . +4 BRANCH IF CLEARED OK 
Ly 003772 104001 HLT +1 :CLR FAILED TO CLR CSR 
1099 003774 104400 SCOPE 
SEERA EREERRERRERAREEEERREEERARERERERRERERAERRERERERERRARRREERERRERE 
sTEST 14: TEST BITS oo TCR FOR READ/WRITE CAPABILITY 


;PROBABLE FAULTY LOGIC: 7285 (D2=2) ALL, (D2-3) E8.E£20.E21.E43.641 


= €KEKEREREEKRREE ERE R ER ERRREREREERERERERAERERRERERRRERRERR ERED REE ERR EE ES 


012777 177777 175320 TST14: MOV #177777 ,aTCR sSET ALL BITS OF TCR 
MOV : CHECK AND SAVE TCR 


a ee ee ee ee ee | 
RANUWOSRTRARAL SS 
S 
S 
Or 


004004 017701 175314 arc 7 
004010 022701 177777 CMP #177777,R1 >CHECK THAT ALL THE BITS ARE SET 
064014 001401 BEQ +h “BRANCH IF OK 

004016 104001 HLT +1 *BIT(S) OF TCR FAILED TO SET 
004920 005077 175300 CLR artcR :CLEAR TCR 

004024 017701 175274 MOV arcR, 1 >CHECK THAT IT CLEARED AND SAVE 
004030 001401 BEO +4 “BRANCH IF CLR 





D 3 
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ZZ=CZDJA=F=0 DJ11 LOGIC TESTS MACY11 30A(1052) 26=FEB=-79 
CZDJAF .P11 26-FEB=-79 15:41 TST14: TEST READ/WRITE BITS OF TCR SEQ 0029 
ora 604032 104001 HLT +1 sBIT(S) OF TCR FAILED TO CLEAR 
ald 004034 104400 SCOPE 
Han ORI IR IIOIOIUIIOIUIIOIIIOIOIIOIOIIOIOIOIOIOIOIOI CII TOIOIOIOTOIOIOT ROTORS STONING HE 
1120 : TEST 15: TEST THAT TCR RESPONDS PROPERLY TO BYTE COMMANDS 
1121 ;PROBABLE FAULTY LOGIC: M7285 (D2=3) £41 
1122 TORII III IOI IIOI I IOIOIIOIOIOIOIIIOIOICTOIIOIOI TOTS TOR TOTTORI NMRA HEE 
1125 
1124 004036 012777 177777 175260 %TST15: MOV #177777,aTCR ;SET TEST NUMBER IN TCR 
1125 004044 105077 175254 CLRB aTCcR :CLR EVEN BYTE 
1126 004050 017701 175250 V aTcrR, R1 ;SAVE TCR 
1127 004054 022701 177400 CMP #177400,R1 ; CHECK TCR 
1128 004060 001401 BEQ +4 ;BRANCH IF OK 
1129 004062 104001 HLT+1 ;EVEN BYTE CLR FAILED ON TCR 
11350 ;R1 = CONTENTS OF TCR 
1131 012777 177777 175232 MOV #177777 ,aTCR ;SET TEST NUMBER IN TCR 
1132 004072 5237 001324 INC TCR ; INC TO ODD BYTE 
1133 004076 105077 175222 CLRB alTcR ;CLR ODD BYTE 
1134 004102 005337 001324 DEC TCR sRESTORE TO EVEN 
1155 004106 017701 175212 MOV aTCcR R1 ZSAVE TCR 
1136 004112 022701 377 CMP #000377.R1 :CHECK TCR 
1157 004116 001401 BEQ +4 ;BRANCH IF OK 
1138 004120 104001 HLT+1 ;0DD BYTE CLR FAILED ON TCR 
bbe 37R1 = CONTENTS OF TCR 
tore 004122 104400 SCOPE 
1143 FREER RARER AERA RAERAERRERRERERRERRRREREREKRERRRERERREEKRERRREREEEREREES 
1144 sTEST 16: TEST THAT THE BIS AND BIC INSTRUCTIONS SET AND CLEAR R/W 
1145 bs BITS OF TCR 
1146 >PROBABLE FAULTY LOGIC: M7285 (D2=-3) £47 
1147 J EERE EEA ARREARKEAATEREREERERRAEERAEAREREAEKRERERRAREEEREREREERERERES EE 
1148 
1149 004124 005077 175174 TST16: CLR arcr ;CLEAR THE TCR 
1150 004130 017701 175170 MOV aTcr, R1 ;CHECK AND SAVE TCR 
1151 604134 001401 BEQ +4 [BRANCH IF CLEARED OK 
Bb" 004136 104001 HLT+1 sRESET FAILED TO CLR TCR 
1154 004140 052777 177777 175156 BIS #177777, atcR :SET ALL R/W BITS OF TCR 
1155 90064146 9022777 177777 175150 CMP #177777, aTcR >CHECK THAT THEY GOT SET 
1156 004154 001401 BEQ +4 SBRANCH IF Ok 
Bs 004756 104000 HLT sREG FAILED CMP 
1159 0041 042777 177777 175136 BIC #177777, arcr sCLEAR TCR 
1160 004166 017701 175132 MOV arcr, R1 ;CHECK AND SAVE TCR 
1161 004172 001401 BEQ +4 sBRANCH IF CLEARED OK 
ot 004174 104001 HLT +1 :CLR FAILED TO CLR TCR 
‘ 
1164 004176 104400 SCOPE 
1165 004200 012737 000001 901346 MOV #1, TIMER S INITIALIZE TIMER 
H. 004206 012737 006214 015250 MOV #.+6, LAD sRESET LOOP ADDRESS 
1168 SERRE REE ERE RRR RRR ERE RR RRRER REAR RERRRERRRER RARER EEE REE 
1169 sTEST 17: TEST THAT TRANSMIT READY (B1775 OF CSR) SETS AND CLEARS 
1176 ; WHEN TCRO IS SET AND CLEARED. 


2Z2-CZ2DJA=F=Q DJ1? LOGIC TESTS 
CZDJAF P11 


4 


~~ 3-23 —) - 3 2 

—_ 3 3 3 sd 
SN SW OW Jo 

ONARAR AN 


Oo ot td ot aed ed) dd 
weds batt feb ted whet 


See i ee ee ee ee ee 
000.0000 
BIRGRLNLS 


1199 


012777 
052777 
000 


050037 
017701 
105001 
000301 
022701 
001401 
104001 


017702 


012777 
00 


26-FEB=79 15:41 


000400 
000001 


175062 


001346 
175046 


000000 
175020 


000001 
175002 


000400 


000001 
174760 
174746 


MACY71 30A(1052) 
TSTi?7: 


175976 
175074 


175012 


174766 


PROBABLE FAULTY LOGIC: 


TST17: 


1$: 


2$: 


3$: 


26-FEB-79 


TEST TRANSMIT READY 


: TEST 20: 


= 
15:47 PAGE 31 
SEQ 0030 


ALSO CHECK _THAT THE RIGHT LINE NO. (0) APPEARS IN TBUFF. 
M7285 (D2=5) ALL, (D2-6) £23, £32, £33, E49, (D2-2) £3, £1 
SOROS OI IOIOIOIUIOI IORI CIOIOIOIOIOIOIICIOIOIOIOIOIOIOIO ROTOR OSOROTORI TSM RI Met tte tet tee Me He te 
#400, aCSR :SET XMTR SCAN ENABLE 
MBITO, aTCR ;SET XMTR CONTROL BIT, LINE O 
0 ;SET UP WAIT COUNTER 
acsR, R4 > CHECK AND SAVE YMTR READY 
2$ “BRANCH IF SET OK 
re :WAIT A WHILE 
;XMTR READY FAILED TC SET 
3$ ;SKIP LINE # CHECK ON ERROR 
RO, TIMEP ;SET UP TIMER 
ai R1 ;SAVE LINE NUMBER 
R1 
#0, R1 CHECK THAT THE XMTR STOPPED ON LINE © 
+4 ;BRANCH IF OK 
;WRONG LINE NUMBER APPEARED IN TRuUF 
~~ R2 + CHECK ag a XMTR READY 
-* 
“READING THE TBUF CLEARED XMITR READY 
#BITO, a1ICR ;CLR XMTR CONTROL BIT. LINE C 
acsRr, m4 ;CHECK AND SAVE XMTR READY 
+4 7BRANCH IF OK 
;XMTR READY FAILED TO CLEAR WHEN 
; MTR CONTROL FOR LINE O WAS CLEARED 
dacanendkaneabendsekekbbdasenshdawaesekidsadidaabaiisndedeeabumeceeces 
TEST THAT TRANSMIT READY (BIT15 OF CSR) SETS AND CLEARS 
WHEN EACH TCR BIT i aoe! AND ee 
CK THAT THE R T LINE NO N TUFF 
M7285 (D2-5) ste (D>-6) "ros £ Ea i," E49. (D2-2) EZ, £1 


: ALSO CHECK 
;PROBABLE FAULTY LOGIC: 


EREAKEERAKE ERR ERET REE ERERERARERERARER ARERR RRR RRE ARERR RARER ERED Eee eee 


TST20: 


4$: 
1$: 


#400, 


aC SR 


R4 
aTcR 


R2 


SET XMTR SCAN ENABLE 


;SET UP MARKER 

7SET XMTR CONTROL BIT, EACH CINE 
SET UP WAIT COUNTER 

>CHECK AND SAVE XMTR READY 


>BRANCH IF SET Ok 
sWAIT A WHILE 


sXMTR READY FAILED TC SET 
SRI=LINE @ 
sR2=CSR 





ZZ~CZDJA=F-Q DJ!) LOGIC eth 
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26-FEB-79 


000414 


050037 
oi Tie 


000302 
020201 
001401 
104002 


017703 


001346 
174732 


174710 


174704 
174674 


174654 
00000 


901 346 
174636 


—) 


090400 
174610 


MACY11 30A(1052) 
TST20: 


174652 


174676 


2$: 


38: 


26~-FEB=-79 
TEST 
BR 3$ 
BIS RO, 
MOV @ 7 RUF 
SWAB Re 
CMP R2, 
BEQ +4 
HLT +2 
MOV acsR, 
BM] +4 
HLT +3 
BIC RZ, 
MOV acsR, 
BPL . +4 
HLT +2 
INC R1 
ASL RS 
BCC 43 
SCOPE 


TIMER 
Re 


R1 


RS 


aTCR 
R2 


F 3 
15:47 PAGE 32 
TRANSMIT READY 


;SKIP LINE #4 CHECK ON ERROR 


;SET UP TIMER 
SAVE LINE NUMBER 


I 


SEO 0031 


sCHECK THAT THE XMTR STOPPED ON RIGHT 1 INE 
;BRANCH IF OK 
;WRONG LINE NUMBER ial IN TBUF 


*R1I=LINE #{SHOULD BE) 
7R2=LINE # (TBUF) 


;CHECK AND SAVE XMTR READY 
BRANCH IF OK 


READING THE TBUF CLEARED XMTR READY 


XMTR 
"RI = 


:CLR XMTR CONTROL BIT, EACH LINE 
;CHECK AND SAVE XMTR READY 
7BRANCH IF OK 
2 XMTR get FAILED TO CLEAR WHEN 
y to FOR LINE .LINE WAS CLEARED 


LINE # 
:R2 = CONTENTS OF CSR 
; INC LINE COUNTER TC NEXT LINE 


> SHIFT MARKER TO NEXT LINE 
;BRANCH IF NCT LAST LINE 


5 EAA ERE KRERRRAEKEE REE RETA AAEAKATAEEAAAERAREKEAERAR ARREARS THREE 


; TEST 21: 


TST21: 


1$: 


2$: 


3$: 
4$: 


DI 


WHEN 
: PROBABLE FAULTY LOGIC: 


TCR BIT 
M7285 


acCSR 
#BITO, ae 


TIMER ,R 
aa RI 


#400,aCSR 
RO 


acsR, 
5$ 


RO 
4$ 


RI 


:AND CHECK AGAIN 
;SET MASTER TRAN SCAN ENABLE 
:CHECK AND SAVE XMTR READY 


> TRAN READY NEVER CAME UP 
:TCR BIT WAS SET FIRST 


TEST THAT MASTER TRANSMIT SCAN ENABLE (CSR BIT 8) ON A O 
SABLES i rary gy (CSR BIT 15) 
(D2-6) £49,£23.€32.633 


-keReRREeeeeAERREREREAARERERREREERRRAREREERRERERE RR ARRRRO EROS EE EeEEerers 


:CLEAR CONTROL STATUS 
+SET XMTR CONTROL BIT. LINE 0 
T TIME Gus 


ae acy “OQ DJ1i LOGIC TESTS MACYi1 spat TY8? 


AF.P11 26=FEB=79 15:41 
1283 
1284 004520 042777 000001 
1285 004526 017701 174566 
1286 004532 700001 
1287 004534 104001 
1288 
1289 004536 104400 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1303 004540 012777 004656 
1310 004546 012777 000340 
1311 004554 012737 006010 
1312 004562 012737 000005 
1313 004570 005337 017214 
1314 004574 013737 017214 
1315 004602 004737 014464 
1216 
1317 
1318 
1319 
1320 
1321 
1322 004606 042737 000340 
1323 004614 053737 017216 
1324 004622 012777 040400 
1325 004630 012777 000001 
1326 004636 017701 174456 
1327 004642 100375 
1328 
1329 004644 
1330 
1331 
1332 004644 023737 017216 
1333 004652 002407 
1334 004654 000417 
1335 
1336 004656 
1337 


174576 


017214 
017226 


017216 


177776 
177776 
174470 
174466 


017220 


TSTe1: 


5$: 


G 3 
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26-F EB=79 
TEST MASTER TRANSMIT SCAN ENABLE SEQ 0032 
; THEN wie TRAN SCAN ENABLE 
BIC #BITO, a@TCR ;CLEAR JT OUT 
MOV @CSR, = =R1 ;CHECK AND SAVE TRAN READY 
BPL +4 :BRANCH IF OK 
HLT +1 :TRAN READY DIDN'T CLEAR. 
SCOPE 


PRATER ARERR RRR REAR EEE ERE KEKE REET eaenee 


STEST det 


Se Oe Oe een Oe ee 


:PROBABLE FAULTY LOGIC: 


TEST TRANSMIT INTERRUPT LEVEL 
THIS TESTS ALL INTERRUPT LEVELS. THIS TEST wiLL 
TEST ALL DEVICES WHICH ARE SPECIFIED DURING CUCSTIONING. 


ERROR PRINT OUT IS AS FOLLOWS:::: 
ADDR DJADR RO R1 


ADDR= ADDRESS OF ERROR HLT 

DJADR= CSR ADDRESS OF 0/11 UNDER TEST 
R1= BR LEVEL FOR DJ11 TO ALLOW INTR 
R2= BR LEVEL WHERE ERROR OCCURED 


M7821 WIRING, PROPER PRIORITY CHIP 


FERRARA AAA ERA EERE AAR RERERREEKEHEKEKE RHA EEE 


TST22: 


AGAIN?: 


WAIT: 


NINTR1: 


INTR1 


MOV #INTR1,@XMTVEC ; SET UP XMIR INTERRUPT VECTOR 
MOV #340,aXMILVL = AT LEVEL 7 
MOV #10,PRIOLO ; LOAD BR7+1 INTO BR TEST LEVEL 
MOV #5.CT : LOADS COUNTER 5 ROL -BR PRIO 
DEC PRIOLO : START TEST BR7. THEN BR6. aas...£1C. 
MOV PRIOLO.NOW > LOAD PRE-ROL-ED DECIMAL PRIO 
JSR PC, BRSET : GO TO SUBROUTINE TO :::::: 

: LOAD BR INTR LEVEL OF DJ17 

> (LEVEL)= DECIMAL #(0 TO 7) 

: (MASK)= OCTAL #(0 TO 340) 

: (0,40, 100,140,200, 240. 300, 340) 

: Y= OCTAL #(0 TO 340) 

> MASK, BUT CURRENTLY TESTING 
BIC #340, aePS > CLEAR PS LEVEL 
BIS BAPS > SET PS TO CURRENT TEST LEVEL 
MOV #040400,aCSR §: SET TRAN MASTER INT. ENABLE 
MOV #BITO0, aTCR : SET TRAN CONTROL BIT. LINE © 
MOV acsR, Ri > WAIT 
BPL IT] 
:I1F YOU ARE HERE NO INTR OCCURED 
CMP NOW, MASK. : IS THIS AN ERROR????? 
BLT ERROR * BRANCH IF YES 
BR THRUI ; IF NO.GO ON TO NEXT aR 


:IF YOU ARE HERE AN INTR OCCURED 


Le 
ne re ee er ee ee ne rr nr RR EI RR 


Z7=CZDUA-F-G 011 LOGIC T 
2C6-FEB=-79 15:41 


CZ2DJAF .P11 


tals oe a pel ge ge page pg 
WW Aw , Nv AWA 
BIBADAAAA LES ERE LES 


NEN AG 
WII 
oO 


at nt 8 dt ot ot ot es 
Meataets 
WEWhe 


ie 


1385 


ai athnn\ oa cabiadicenteain 
A 
VESSSPAK 


2 


DIAN 
oY @) 


004656 
0 


004770 004737 014600 


022626 
they 


010146 
010246 


013701 
013702 


104002 
012602 
012601 
005077 
001314 


013777 
012777 
042737 


104400 


005037 
012737 


ESTS 


017216 


017220 
017216 


MACY11 30A(1052) 
TST2e: 


017220 


174374 
174370 
177776 


015250 


H 3 
C6-FEB=79 15:47 PAGE 34 
TEST TRANSMIT INTERUPT LEVEL 


CMP (SP)+, (SP) + ; CLEAN UP THE STACK 
CMP NOW ,MASK ; IS THIS AN ERROR?777? 
BGE ERROR1 ; BRANCH iF ERROR 
BR THRU1 ; IF NO,SEE JF ALL BR LEVELS TESTED 
ERROR1: ; IF YOU ARE HERE , THEN SOMETHING IS WRONG 
; ERROR! Pitre 
MOV R1,-(6) zPUSH R1 ON STACK 
MOV R2,7(6) ;PUSH R2 ON STACK 
MOV MASK, R1 ; R1=BR LEVEL ALLOWED 
; (BR BITS OF PSw) 
MOV NOW, R2 ; R2=BR LEVEL OF ERROR 
: (BR BITS OF PSw) 
HLT +2 ; REPORT ERROR+ REG. 1,2 
MOV (6)+,R2 ;POP STACK INTO R2 
MOV (6)+,R1 ;POP STACK INTO R1 
THRU1: 
CLR aTcR 
cLR aC SR 
TST NOW ; TEST IF LAST @R WAS CHECKED 
BNE AGAIN1 ; BACK TO TEST NEXT INTR LOWER 
: (NOW = 0 
END22: MOV XMTLVL.@XMTVEC ; RELOAD AND CLEAN UP 
MOV #I10T, @XMTLVL 
BIC #340. a4PS 
SCOPE 
CLR TIMER s INITIALIZE TIMER 
MOV #.+6, LAD sRESET LOOP ADDRESS 
J REAR RAEKAERERERKEEREEKERAAEEAEEREAAEERARAREARAEKAERAERREREERERERKRERERRERE ERE 
sTEST 23: TEST THAT LINE 0 CAN TRANSMIT AND 


RECEIVE A CHARACTER. (377) 
: CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE TIME. 
3$: CHECKS THAT NO ERRORS IN FI/FO 
4$: CHECKS THAT RIGHT LINE # (0) IN FI/FO 
5$: CHECKS FOR RIGHT CHARACTER LENGTH 
6$: CHECKS THAT CORRECT DATA WAS RECEIVED 
7$: CHECKS THAT a ae CLEARS 


; 8$: CHECKS THAT DONE CLEARS 
sPROBABLE FAULTY LOGIC: M7285 (D2=7) ALL; M7279 ALL: UART CARD DO3 SERIES 


FREER REREREREEREREEEREKERKEKERERER EEA RERRARAAAERARARARRRRRE SRE R ERE ERE ES 


S123: 


INITIALIZE 
DEVICE’ ‘CSR’ REGISTER sai 
JSR PC, Q#INITD ;BIT2 = MAINTENANCE 
*BIT3 = CLEAR MOS 
“BITB = MASTER XMTR SCAN ENR 


SEQ 0033 


[ 3 
26-FEB-79 15:47 PAGE 35 
TEST ALL OF LINE 0 TRANSMIT AND RECEIVE LOGIC 00 34 


38 ee DJ11 LOGIC TESTS MACY?1 30A(1052) 


AF .P1i 26-FEB=79 15:41 TST23: SEC 


052777 
017701 


050037 
032701 
007401 
104001 


010102 


017701 
100001 
104007 


017701 


000001 
1743512 
000377 
174272 


174256 


001 346 
070000 


170377 
000000 


174260 


174174 


174162 
100405 


174522 


174310 


sWAIT FOR MOS TO CLEAR 


33: 


4$: 


5$: 


6$: 


7$: 


8$: 


#BITO. a@TCR 
acsR, RI 
LOP23 
#377,  aTBUF 
RO 
R5 
1$ 
@RBUF .R1 
3$ 
RO 
1$ 
acsR, R2 
RO, TIMER 
#70000, Ri 
RI R2 
#170377.R2 
R2 
#0. - R2 
+4 
@DJLEN, R2 
es 
+6 
R2 
Ri, R2 
+4 
et 
+4 
acsR, RI 
#100405.R1 
e. 


SET: 
;BITO = 


;SET XMTR CONTROL BIT, LINE O 
sWAIT FOR XMTR READY 


;SEND A RUBOUT 
; CLEAR COUNTER 


RECEIVER ENABLE 


;SHORT WAIT LOOP 
sWAIT FOR CHAR. PRES. 


R 
;BRANCH JF NOT TIME-OUT 
: SAVE CSR 
s CHARACTER READY DIDN*T SET 
:R1 = CONTENTS OF RBUF 
:R2 = CONTENTS OF CSR 
;SAVE THE TIMER 
; CHECK FOR ERROR BITS 
[BRANCH IF NONE 


ERROR IN RECEIVED CHAR 


;BIT12=PARITY ERROR 
>DUPLICATE DATA WORD 


MASK LINE# 
sLINE # IN oy BYTE 
> CHECK LINE # 
BRANCH IF OK 

; JRONG LINE # RECEIVED 
:R1 = CONTENTS F pasa 
;BITS8-11 = LI] 


H OK 

CHARACTER LENGTH 
CRISDATA FROM FI/FO 

:R2=MASK (BITS SET ONO EXPECTED) 
SREVERSE THE MASK 
:CHECK THE ACTURAL DATA 

;BRANCH IF OK 


*WRONG CHAR LEN OR DATA ERROR 
*R1=DATA FROM FIZFO (COMPLETE wORD) 
:R2=DATA (LOW BYTE) EXPECTED 


:BRANCH IF CHAR PRESENT NOT SET 
CHARACTER PRESENT STAYED SET 
:R1 = CONTENTS OF RBuUF 
SSAVE THE CSR 
Pee, THE CSR 
;BRANCH IF OK 
CLEAR ‘s OTHER CSR ERROR 


a te DIDN*) 
R71 = CONTENTS OF CSR 





J. 5 
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22=CZDJA~F-0 DJ11 LOGIC TESTS MACY11 30A(1052) 
CZDJAF .P11 26-FEB-79 15:41 TST25: TEST ALL OF LINE O TRANSMI’ AND RECEIVE LOGIC SEQ 0035 

1451 005146 005077 174152 CLR aTCR iCLEAR TCR 

1452 005152 005077 174142 CLR aCSR ;CLEAR CSR 

1435 005156 104400 SCOPE 

1455 ile itt tite eee eee PP PPP PPP PPPS CPPS SSCSOSCSLCSCALSCA.L Se. eee 

1454 sTEST 24: TEST THAT LINE 1 CAN TRANSMIT AND 

1457 ; RECEIVE A CHARACTER. (377) 

1458 : 1$: CHECKS THAT CHAR PRESENT IS 2 FI/FO IN REASONABLE TIME. 

1459 3$: CHECKS THAT NO ERRORS IN FI/FO 

1460 4$ CHECKS THAT RIGHT LiNE @ a) IN FI/FO 

1461 5$: CHECKS FOR RIGHT CHARACTER LENGTH 

1462 ‘ 6$: CHECKS THAT CORRECT DATA WAS RECEIVED 

1463 : 7$: CHECKS THAT CHARACTER PRESENT CLEARS 

1464 8$: CHECKS THAT DONE CLEARS 

1465 sPROBABLE FAULTY LOGIC: M7285 (D2=7) ALL; M7279 ALL: UART CARD 00% SERIES 

1466 SRE RARER RRR REE EERE EEE REE EEEEREREEAERERKEERE RHEE EHEREEES 

1467 

1468 : INITIALIZE 

1469 . DEVICE’ ‘CSR’ REGISTER 

1470 . SET: 

1471 005160 004737 014600 TST24: JSR PC, @VINITD ;BIT2 = MAINTENANCE 

1472 :BIT3 = CLEAR MOS 

1473 ;BIT&8 = MASTER XMIR SCAN ENB 

1474 sWAIT FOR MOS TO CLEAR 

1475 : SET: 

beg ° ;BITO = RECEIVER ENABLE 

1478 005164 052777 000002 174132 BIS #BITi, aICR ;SET XMTR CONTROL BIT. LINE 1 

1479 005172 017791 174122 LOP24: MOV acsR, R1 ZWAIT FOR XMTR READY 

1480 005176 100375 L LOP24 

1481 065200 012777 000377 174120 MOV #377,  aTBuUF ;SEND A RUBOUT 

1482 005206 005000 CLR RO ;CLEAR COUNTER 

1483 005210 105305 1$ DECB R5 : SHORT WAIT LOOP 

1484 005212 001376 BNE 1$ 

1485 214 017701 174102 MOV @RBUF ,R1 ;WAIT FOR CHAR. PRES. 

1486 005220 100405 l 3$ ;BRANCH WHEN FOUND 

1487 G05222 INC RO : TIME COUNTER 

1488 005224 001371 BNE 1$:.. ;BRANCH iF NOT TIME-OUT 

1489 005226 017702 174066 MOV acsR, R2 ;SAVE CSR 

1490 0052352 104002 HLT +2 ; CHARACTER READY DIDN'T SET 

1491 :RI = CONTENTS OF RBUF 

1492 ;R2 = Sg tk OF CSR 

1493 005234 050037 001346 3$: BIS RO, TIMER > SAVE THE TIMER 

1494 005240 032701 070000 BIT #70000, R1 CHECK FOR ERROR BITS 

1495 005244 001401 BEOQ +4 BRANCH IF NONE 

1496 005246 104001 HLT +1 sERRGR IN A CHAR 

1497 :R = CONTENTS OF RBUF 

1498 :BITI4=UART OVE 

1499 7BIT13=FRAMING ERROR 

1500 :BIT12= PARITY ae 

1501 005250 010102 4%: MOV R1 Re SDUPLICATE Dat “RD 

1502 005252 042702 170377 BIC #170377 ,.Re MASK LINEA 

1503 005256 000302 SWAB Re ;LINE # IN > BYTE 

1504 52 1227G2 000001 CMPB #1., R? S CHECK L 

7505 005264 001401 BEQ 2*4 ;BRANCH IF ox 

1506 905266 104001 HL T+ 7WRONG LINE @# RECEIVED 





2 


NHODDNOUSWRH Oo 


) 


ot ed met ed ed od ad dd sd 
MAI 


nr 


117702 


017701 
100007 
104001 


017701 
022701 
901401 
104001 


005077 


005077 
10440C 


024737 


052777 
017701 


Fincke ens DJ11 LOGIC peers 
CO-FEB=79 15:4 


174070 


174004 


173772 
1004C5 


173762 
173752 


014600 


000004 
173732 


000377 





173742 


173730 


K 3 
15:47 PAGE 37 


1 TRANSMIT AND RECEIVE LOGIC 


MACY11 30A(1052) 26=-FEB=79 

TST24: TEST ALL OF LINE 

5$: MO VB Q@DJLEN, R2 
BITB R2, R1 
BEQ +4 
HLT +2 

6$: COMB Re 
CMPB R1, R2 
BEQ +4 
HLT +2 

7$: MOV aRBUF, 71 
BPL +4 
HLT +1 

§$: MOV acsr, R1 
CMP #1004605,R1 
BEQ .*4 
HLT +1 
CLR aTcR 
CLR acSR 
SCOPE 


;R1_= CONTENTS OF RAUF 
"BITS8-11 = LINE # 
;GET MASK OF CHARACTER 


* CHECK CHAR LENGTH. 

;BRANCH JF Ck 

;WRONG CHARACTER LENGTH 
;R1=DATA FROM FI/FO 

ZR2=MASK (BITS SET NOT EXPECTED) 


;REVERSE THE MASK 
7; CHECK THE ACTURAL DATA 
; BRANCH IF OK 
WRONG CHAR LEN OR DATA ERROR 
*R1= =DATA FROM FI/FO (COMPLETE WORD) 
*R2= DATA (LOW BYTE) EXPECTED 
sREAD FI/FO 
BRANCH IF CHAR PRESENT NOT SzT 
; CHARACTER PRESENT STAYED SET 
:R1 = CONTENTS OF RUF 


7DONE DIDN’T CLEAR GR OTHER (SR ERROR 
:R1 = CONTENTS OF CSR 

;CLEAR TCR 

ZCLEAR CSR 


g TE AAAAAAAERAERARERAREARERSRAREEARAERARERARERERERERAEREEREREEAREEBROEREREDROEDOS 


TEST THAT LINE 2 CAN 'RANSM 


IT AND 
(377> 


1$: CHECKS THAT CHAR PRESENT SF es FI/FO IN REASONABLE TIME. 


4$: CHECKS THAT RIGHT LINE # (2) IN FI/FO 


DATA WAS RECEIVED 


7$: CHECKS THAT T CHARACTER. PRESENT CLEARS 


T DONE CLEARS 
M7285 (D2-7) ALL; M7279 ALL: UART CARD DO3 SERIES 


- RARE THTRARRERHEREEREREERERERERERERHERARRRRRRRERRR REAR EREEeEneaeenetence 


SET: 

SBIT2 = MAINTENANCE 

3BITS = CLEAR MOS 

:BIT8 = MASTER XMTR SCAN ENB 
SE: 

:BITO = RECEIVER ENABLE 


sSET XMTR CONTROL BIT, LINE 2 
;WAIT FOR XMTR READY 


>SEND A RUBOUT 


[TEST 25: 
: RECEIVE A CHARACTER. 
: 3$: CHECKS THAT NO ERRORS IN F 
: 5$: 
: 6$: CHECKS THAT CORRECT 
: 8$: CHECKS T 
:PROBABLE FAULTY LOGIC: 
: INITIALIZE 
: DEVICE’ ‘CSR’ REGISTER 
TST25: JSR PC, av INITD 
;WAIT FOR MOS TO CLEAR 
: BIS #WBIT2, atcrR 
LOP25: MOV acsR. 
BPL Lop25 
MOV #377,  alTRUF 
CLR RO 


:CLEAR COUNTER 
;SHORT WAIT LOOP 





Z2=CZ2ZDJA-F=0 DJ11 LOGIC TESTS 
CZ2DJAF .P11 


050037 
032701 
001401 
104001 


010102 


130201 


017701 
100001 
104001 
017701 


2€-FEB-79 15:41 


173712 


173676 


001 346 
0700C0 


170377 
000002 


173700 


173614 


173602 
100405 


173572 
173562 


2 
PAGE 38 
TEST ALL OF LINE 2 TRANSMIT AND RECEIVE LOGIC 


;WAIT FOR CHAR, PRES. 
;BRANCH WHEN FOUND 
TIME COUNTER 

;BRANCH IF NOT TIME-OuUT 
; SAVE CSR 

+ CHARACTER READY DIDN‘T SET 
/R1 = CONTENTS OF RBUF 
:R2 = CONTENTS OF CSR 

; SAVE THE TIMER 

; CHECK FOR ERROR BITS 
;BRANCH IF NONE 


C 
sERROR IN RECEIVED CHAR 
:R1 = CONTENTS OF RBUF 
7BIT14=UART OVERRUN 
;B1T13=FRAMING ERROR 
;BIT12=PARITY ERROR 
;DUPLICATE DATA WORD 
;MASK LINEM 


sLINE ’ IN a BYTE 
sCHECK LINE @# 

“BRANCH IF OK 

:WRONG LINE # RECEIVED 
:R1_= CONTENTS OF RBUF 
;BITS8-11 = LINE # 
;GET MASK OF CHARACTER 
: CHECK CHAR LENGTH. 
BRANCH IF 


OK 
:WRONG CHARACTER LENGTH 
;RI=DATA FROM FI/FO 
;R2=MASK (BITS ad NOT EXPECTED) 
REVERSE THE MA 
7: CHECK THE AC TURAL DATA 
BRANCH IF OK 


;WRONG CHAR LEN OR DATA ERROR 
7RI=DATA FROM FI/FO (COMPLETE WORD’ 
;R2=DATA _ BYTE) EXPECTED 
sREAD FIJ/F 

BRANCH F CHAR PRESENT NOT SET 

: CHARACTER PRESENT STAYED SET 

:R1 = CONTENTS OF RBUF 


OK 
"DONE DIDN'T Ag yh e OTHER CSR ERROR 
:R1 = CONTENTS OF C 
CLEAR TCR 
:CLEAR CSR 


J AAA RAERAAEREREARAKAHEAAEEATEREARARHEAAERRERARAREARERRRKRARREHH HERES eRe Reee 


TEST ge LINE 3 CAN eet AND 


CHARACTER, 


CHECKS THAT CHAR PRESENT 3, in FI/FQO IN REASONABLE TIME. 
CHECKS THAT NO ERRORS IN FI/FO 


MACY11 30A(1052) 26=FEB=79 15:47 

TST25: 
BNE 1$ 
MOV @RAUF ,R1 
BM] BS 
INC RO 
BNE 1$ 
MOV aCSR, R2 
HLT +2 

3$: BIS RO, TIMER 
BIT #70000, RI 
REQ 
HLT +1 

4$: MOY R1 R2 
BIC #170377,R2 
SWAB R2 
CMPB #2.. R? 
BEQ ‘ 
HL T+} 

5$: MOVB Q@DULEN, R2 
BITB 2. Ri 
BFQ 4 
HLT +¢ 

6$: COMB R2 
CMPB R1, R2 
BEL +4 
HLT +2 

’$: MOV ae f 
BPL. = +4 
HL T+] 

8$: MOV ac sr, R] 
CMP #100605 RI 
BEQ 
HLT +1 
CLR arcr 
CLR aC SR 
SCOPE 

sTEST 26: 

; RECEIVE A 

; 1§; 

J 3$: 

; 4$: 


CHECKS THAT RIGHT LINE @ ( ) IN FI/FOQ 


SES 0057 





mM 3 
Se a DJ11 LOGIC TESTS MACY11 30A(1052) 26=FEB=79 15:47 PAGE 39 
CZ2DJAF .P11 C6-FEB=79 15:41 TST26: TEST ALL OF LINE 3 TRANSMIT AND RECEIVE LOGIC 


SEG 00358 


1619 : 5$: CHECKS FOR RIGHT CHARACTER LENGTH 

1620 : 6$: CHECKS THAT CORRECT DATA WAS RECEIVED 

1621 : 7$: CHECKS THAT CHARACTER PRESENT CLEARS 

1622 : B$: CHECKS THAT DONE CLEARS 

1623 ;PROBABLE FAULTY LOGIC: M7285 (D2=7) ALL; M7279 ALL; UART CARD DO3 SERIES 

1624 leita tie tet tt ttt thee eee REPEC SESE LSC... 

1625 

1626 : INITIALIZE 

16¢7 : DEVICE’ 'CSR' REGISTER - 

1629 005540 004737 014600 TST26: JSR PC, Q#INITD :BIT2 = MAINTENANCE 

1630 :BIT3 = CLEAR MOS 

1631 :BITB = MASTER XMTR SCAN ENB 

1632 :WAIT FOR MOS TO CLEAR 

1633 : SET: 

1634 : :BITO = RECEIVER ENABLE 

1636 005544 052777 000010 173552 BIS #B1T3, @TCR  ;SET XMTR CONTROL BIT. LINE 3 

1637 005552 017701 173542 LOP26: MOV acsR, R1 :WAIT FOR XMTR READY 

1638 005556 100375 BPL LOP26 

1639 005560 012777 000377 173540 MOV #377, @IBUF ;SEND A RUBCUT 

1640 005566 005000 CLR 0 :CLEAR COUNTER 

1641 005570 105305 1$ DECR—SséRRS >SHORT WAIT LOOP 

1642 005572 001376 BNE 1$ 

1643 005574 017701 173522 MOV @RBUF .R1 ;WAIT FOR CHAR. PRES. 

1 00 100405 BM] 3$ [BRANCH WHEN FOUND 

1645 005602 005 INC RO :TIME COUNTER 

1646 005604 71 BNE 1$ [BRANCH IF NOT TIME-OUT 

1647 005 017702 173506 MOV acsR,  R2 :SAVE CSR 

1648 005612 104002 HLT+2 ; CHARACTER READY DIDN'T SET 

1649 R1 - CONTENTS OF RBUF 

1650 iR2 = CONTENTS OF CSR 

1651 005614 050037 001346 38: BIS RO, TIMER TIMER 

1652 005620 032701 070000 BIT #70000, R1 > CHECK FOR ERROR BITS 

1653 005624 001401 BEQ +6 : 

654 005626 104001 HLT +1 SERROR IN RECEIVED CHAR 

1655 *R1 = CONTENTS OF RBUF 

1656 *BIT14=UART OVERRUN 

1657 *BIT13=FRAMING ERROR 

1658 :BITI2=PARITY ERROR 

1659 005630 010102 4$: MOV R1 R2 :DUPLICATE DATA WORD 

1660 005632 042702 170377 BIC #170377,R2 :MASK LINE# 

1661 005636 000302 SWAB sR :LINE # IN Low BYTE 

1662 005640 122702 000003 CMPBso#3., ~—s RR *CHECK LINE # 

1663 005644 001401 BEQ +4 ;BRANCH IF OK 

1664 005646 104 HLT +1 LINE # RECEIVED 

1665 RI = CONTENTS Or _RoUF 

1666 :B1TSB- 1 = LINE @# 

1667 005650 117702 173510 5$: MOVB = @DJLEN, R2 SK OF CHARACTER 

1668 005654 130201 BITB = R2 CHECK CHAR LENGTH. 

1669 005656 001401 BEQ +4 : H IF OK 

1670 104002 HLT +2 : WRONG CHARACTER LENGTH 

1671 RI=DATA FROM FI/FO 

1672 “R2=MASK (BITS SET ONor EXPECTED) 
6$: COMB si2 :REVERSE T 


CMPB RI, Re 


;CHECK THE ACTURAL DATA 


ZZ~CZDJA=F=Q0 DJ11 LOGIC eit 


CZDJAF .P11 c6-FEB-79 1 
1675 005 001401 
1676 005670 104002 
1677 
1678 
1679 005672 017701 1735424 
1680 005676 100001 
bys 2 005700 104001 
1683 005702 017701 173412 
1684 57’ 022701 100405 
1685 005712 001401 
i 005714 104001 
1688 005716 005077 173402 
1689 005722 5077 173372 
1690 005726 104400 
1691 005730 005237 001364 
1692 005734 012737 005742 
1695 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 005742 004727 014600 
1711 
1712 
1713 
1714 
1715 
1716 
1717 005746 (52777 000020 
1718 005754 017701 173340 
1719 005760 100375 
1720 005762 012777 000377 
1721 5770 005000 
1722 005772 105305 
1723 005774 001376 
1724 005776 017701 173320 
1725 100405 
1726 0052 
1727 001371 
1728 006010 017702 173304 
1729 006014 104002 


MACY11 30A(1052) 
TST26: 


015250 


173350 


173336 


N 3 
15:47 PAGE 40 


26-F EB-79 

TEST ALL OF LINE 3 TRANSMIT AND RECEIVE LOGIC 

BEQ +4 ;BRANCH IF OK 

HLT +2 ;WRONG CHAR LEN OR DATA ERROR 
:R1=DATA FROM FI/FO (COMPLETE WORD) 
;R2=DATA (LOW BYTE) EXPECTED 

7$: MOV @RBUF, R1 sREAD FI/FO 

BPL +4 ;BRANCH IF CHAR PRESENT NOT SET 

HLT +1 ; CHARACTER PRESENT STAYED SET 
;R1 = CONTENTS OF RBUF 

8$: MOV @CSR, RI ;SAVE THE CSR 

CMP #100405,R1 ; CHECK THE CSR 

BEQ +4 ;BRANCH IF OK 

HLT +1 sDONE DIDN'T CLEAR OR OTHER CSR ERROR 
:R1 = ee? OF CSR 

CLR aTCR :CLEAR TCR 

CLR aCSR sCLEAR CSR 

SCOPE 

INC DJLEN 

MOV #.+6, LAD 


CRAKEAR RRR EKER EKER KKK 


STEST gr: TEST THAT LINE 4 CAN TRANSMIT AND 
: RECEIVE A CHARACTER. (377) 
; 1$: CHECKS THAT CHAR PRESENT IS i FI/FO IN REASONABLE TIME. 
. 3$: CHECKS THAT NO ERRORS IN FI/F 
: 4$: CHECKS THAT RIGHT LINE # (4) IN FI/FO 
: 5$: CHECKS FOR RIGHT CHARACTER LENGTH 
; 6$: CHECKS THAT CORRECT DATA WAS RECEIVED 
: 7$: CHECKS THAT CHARACTER —— CLEARS 
8$: CHECKS THAT DONE C 


: CLEAR 
>PROBABLE FAULTY LOGIC: M™7285 (2-7) ALL; M7279 ALL: UART CARD DO3 SERIES 


SRR ERE EERE EERE REREEREREREREREEREEERRAERRREEREREE EERE EERE 


INITIALIZE 
DEVICE’ CSR REGISTER 


TST27: 


:WAIT FOR MOS TO CLEAR 


LOP27: 


JSR 


PC, 


#B1T4, 


acsR 
LOP27 
#377, 


@#4INITD 


aTtcrR 


SET 
“BITO = 
sSET XMTR CONTROL BIT. LINE 4 
;WAIT FOR XMTR READY 


SET: 
sBITe = eg 


BITS = CLEAR MOS 
‘BITS = MASTER XMTR SCAN ENB 


RECEIVER ENABLE 


;SEND A RUBOUT 
:CLEAR COUNTER 
SHORT WAIT LOOP 


:WAIT FOR CHAR. PRES. 
;BRANCH WHEN FOUND 

: TIME COUNTER 

BRANCH IF NOT TIME-OUT 


AV 
CHARACTER READY DIDN'T SET 
:R1 = CONTENTS OF RBUF 


B 4 
ZZ2~CZDJA-F=0 DJ11 LOGIC TESTS MACY11 30A(1052) 26=FEB=79 15:47 PAGE 41 


CZDJAF .P11 26-FEB=-79 15:41 TST27: TEST ALL OF LINE 4 TRANSMiT AND RECEIVE LOGIC SEQ 0040 
1731 :R2 = CONTENTS ao CSR 
1732 006016 050037 001346 3$: BIS RO, TIMER *SAVE THE T 
1733 006022 032701 070000 BIT #70000, R1 “CHECK FOR ERROR BITS 
1734 006026 001401 BEQ “BRANCH IF NONE 
1735 006030 104001 HLT +1 :ERROR IN RECEIVED CHAR 
1736 *R1 = CONTENTS OF RBUF 
1737 *BIT14=UART OVERRUN 
1738 ;B1T13=FRAMING ERROR 
1739 BIT12=PARITY ERROR 
1740 006032 010102 4$: MOV R1 R2 ‘DUPLICATE DATA WORD 
1741 006034 042702 170377 BIC #170377,R2 “MASK LINEA 
1742 006040 000302 SWAB «RRO :LINE # IN LOW BYTE 
1743 006042 122702 000004 CMPBR eG. R2 : CHECK LINE # 
1744 006046 001401 BEQ +6 “BRANCH IF OK 
1745 006050 104001 HLT +1 :WRONG LINE # RECEIVED 
1746 7R1 = CONTENTS OF RBUF 
1747 -BITS8-11 = LINE # 
1748 006052 117702 173306 5$: MOVB  a@DJLEN, R2 :GET MASK OF CHARACTER 
1749 006056 130201 BITB~—_—R2, R1 :CHECK CHAR LENGTH. 
1750 006060 001401 BEQ +4 *BRANCH IF OK 
1751 006062 104002 HLT+2 :WRONG CHARACTER LENGTH 
1752 *R1=DATA FROM FI/FO 
1753 [R2=MASK (BITS SET NOT EXPECTED) 
1754 006064 105102 é$: COMB —s- R2 sREVERSE THE MASK 
1755 006066 120102 CMP8—séRT, R2 CHECK THE ACTURAL DATA 
1756 006070 001401 BEQ +4 :BRANCH IF OK 
1757 006072 104002 HLT +2 :WRONG CHAR LEN OR DATA ERROR 
1758 :R1=DATA FROM FI/FO (COMPLETE WORD) 
1759 7R2=DATA (LOW BYTE) EXPECTED 
1760 006074 017701 173222 7$: MOV @RBUF, R1 “READ FI/FO 
1761 006100 100001 BPL er :BRANCH IF CHAR PRESENT NOT SET 
1762 006102 104001 HLT +1 ;CHARACTER PRESENT STAYED SET 
1763 :R1 = CONTENTS OF RBUF 
1764 006104 017701 173210 8$: MOV acsR, Ri :SAVE THE CSR 
1765 006110 022701 100405 CMP #100405,R1 sCHECK THE CSR 
1766 006114 001401 BEQ +4 H IF OK 
1767 006116 104001 HLT +1 ; DONE DIDN'T CLEAR OR OTHER CSR ERROR 
1768 *R1 = CONTENTS OF CSR 
1769 006120 005077 173200 CLR aTcR :CLEAR TCR 
1770 006124 005077 173170 CLR acsR :CLEAR CSR 
1 006130 104400 SCOPE 


FREER EREREEAKARRERKEAREEKRERARARERAAAARERAREATARRARRERRRARERERE HEL ERE EE 
TEST 30: TEST THAT LINE 5 CAN TRANSMIT AND 
RECEIVE A CHARACTER. (377) 

: CHECKS THAT CHAR PRESENT IS sn FI/FO IN REASONABLE TIME. 
3$: CHECKS THAT NO ERRORS IN rh FQ 

: CHECKS THAT RIGHT LINE # (5) IN ne 
5$: CHECKS FOR RIGHT CHARACTER LENGTH 
6$: CHECKS THAT CORRECT DATA WAS RECEIVED 
7$: CHECKS THAT Soe Nn PRESENT CLEARS 


CHECKS THAT DONE CLEARS 
“ PROBABLE FAULTY LOGIC: M7285 (D2=7) ALL; M7279 ALi; UART CARD DO3 SERIES 


FERRARA EAE EEE AERA EERERERERAEHERAREERAERARRRRRERRARERRAR ERR ER ERR Eee 


; INITIALIZE 


Be Ba Be Be Be Be Be Be 
Co Sw 
by PAW 


ZZ-CZ2ZDJA=F-0 DJ 
26-FEB=-79 15: 


CZDJAF .P11 


1787 
1788 
i 


33 


ERP RRR 


aoe 
Seo 


006132 


11 LOGIC TESTS 
a 


004737 


052777 


017701 
100001 
104001 


014600 


000040 
173150 


000377 


173130 


173114 


001346 
070000 


170377 
000005 


173116 


173032 


MACY11 30A(1052) 
TST30: 


173160 


173146 


TST30: 


26-F EB=79 


C 4 
15:47 PAGE 4 


2 
TEST ALL OF LINE 5 TRANSMIT AND RECEIVE LOGIC 
DEVICE’ CSR’ REGISTER 


JSR 


PC, QM INITD 


sWAIT FOR MOS TO CLEAR 


LOP30: 


3$: 


43: 


5$: 


6$: 


7$: 


#B1T5, 
acSR 


LOP3 
#377, 
RO 
R5 
1$ 

@RBUF ,R1 

3$ 

RO 

1$ 

@CSR, ke . 


aTCR 
R1 


@ TBUF 


TIMER 


RO 
#70000, 
+4 


R1 R2 
#170377 .R2 
R2 

#5 2s @¢ R2 
+4 


. s Re 


SET: 

;BIT2 = MAINTENANCE 

;BIT3 = CLEAR MOS 

;B1T8 = MASTER XMTR SCAN ENB 

SET: 

;BITO = RECEIVER ENABLE 

;SET XMTR CONTROL BIT, LINE 5 
;WAIT FOR XMTR READY 

;SEND A RUBOUT 


sCLEAR COUNTER 


: SHORT WAIT LOOP 


sWAIT FOR CHAR. PRES. 
BRANCH WHEN FOUND 
:TIME COUNTER 

;BRANCH IF NOT TIME-OUT 


> SAVE CSR 

CHARACTER READY DIDN'T SET 
- = CONTENTS OF RBUF 
“SAVE THE 


a gh k OF CSR 
TIMER 


CHECK FOR ERROR BITS 
IF NONE 


BRANCH 
sERROR IN RECEIVED CHAR 
RBUF 


7DUPLICATE DATA WORD 

[MASK L 

eL ee # IN a BYTE 
K LINE # 


OK 
NE # RECEIVED 
RBUF 


OK 
HARACTER LENGTH 


WRONG C 
:RI=DATA FROM FI/FO 


neues (BITS SET NOT EXPECTED) 


LEN OR DATA ERROR 


WRONG CHAR 
:RI=DATA FROM FI/FO (COMPLETE WORD) 


:R1 = 


:R2=DATA (LOW BYTE) EXPECTED 
AD FI/FO 


“BRANCH IF 
CHARACTER oot Ae SET 


CHAR PRESENT NOT SET 
CONTENTS OF 


SEQ 0041 
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CZ2DJAF .P11 26-FEB-79 15:41 TEST ALL OF LINE 5 TRANSMIT AND RECEIVE LOGIC SEQ 0042 
1843 006274 017701 173020 8$: MOV aCSR, R11 ;SAVE THE CSR 
1844 006300 022701 100405 CMP #100405,R1 ;CHECK THE CSR 
1845 006304 001407 BEQ +4 :B ANCH IF OK 
1846 006 104001 HLT +1 ;DONE DIDN'T CLEAR OR OTHER CSR ERROR 
1847 *R1 = — OF CSR 
1848 00631 005077 173010 CLR aTcR ;CLEAR TCR 
1849 00631 005077 173000 CLR aCSR ;CLEAR CSR 
core 006520 104400 SCOPE 
1852 PRR RRR ERR KR ERE KEKE KEKE EERE hhS 
18553 “TEST 3t: TEST THAT LINE 6 CAN TRANSMIT AND 
1854 RECEIVE A CHARACTER. (377) 
1855 : 1$: CHECKS THAT CHAR PRESENT IS rn FI/FO IN REASONABLE TIME. 
1856 ; 3$: CHECKS THAT NO ERRORS IN FI/FO 
1857 : 4$: CHECKS THAT RIGHT LINE # (6) IN FI/FO 
1858 : 5$: CHECKS FOR RIGHT CHARACTER LENGTH 
1859 6$: CHECKS THAT CORRECT DATA WAS RECEIVED 
1860 : 7$: CHECKS ae CHARACTER PRESENT CLEARS 
1861 8$: CHECKS THAT DONE CLEARS 
1862 = PROBABLE FAULTY LOGIC: M7285 (D2=-7) ALL; M7279 ALL: UART CARD DO3 SERIES 
1863 + KKRRRRRERRER RARER RRR ERRERERRREREREREREREREREREREER ERROR ERR A Re 
1864 
1865 : INITIALIZE 
La ; DEVICE’ CSR’ REGISTER “st 
1868 006322 004737 014600 TST31: JSR PC, @VINITD ;BIT2 = MAINTENANCE 
1869 :BITS = CLEAR MOS 
1870 7BIT8 = MASTER XMTR SCAN ENB 
1871 ;WAIT FOR MOS TO CLEAR 
1872 SET: 
Lay ; ;BITO = RECEIVER ENABLE 
1875 006326 052777 000100 172770 BIS #BiT6, aTCR 7SET XMTR CONTROL = T, LINE 6 
1876 006334 077701 172760 LOP3S1: MOV acsR, Ri [WAI T FOR XMTR READ 
1877 006340 100375 BPL LOP31 
1878 006342 012777 000377 172756 MOV #377,  aTBUF ;SEND A RUBOUT 
1879 006350 005000 CLR RO > CLEAR COUNTER 
1880 006352 105305 1$: DECB R5 : SHORT WAIT LOOP 
1881 006354 001376 BNE 1$ 
1882 0063556 017701 172740 MOV @RBUF .R1 sWAIT FOR CHAR. PRES. 
1883 006362 100405 BMI 3$ ;BRANCH WHEN FOUND 
1884 006 005260 INC RO : TIME COUNTER 
1885 006366 001371 BNE 1$ : BRANCH IF NOT TIME-OuT 
1886 006370 017702 172724 V acsR, R2 ;SAVE CSR 
1887 006374 104002 HLT +2 : CHARACTER READY DIDN'T SET 
1888 :R1 = CONTENTS OF RBUF 
1889 :R2 = og BS OF CSR 
1890 006376 050037 001346 3$: BIS RO, TIMER :SAVE THE TIMER 
1891 006402 032701 070000 BIT #7000, R1 :CHECK FOR ERROR BITS 
1892 066406 001407 BEQ BRANCH IF NONE 
1893 006410 104001 HL T+1 sERROR IN BU ay CHAR 
1894 =R1 = CONTENTS OF RBUF 
1895 3BIT14=UART OVERRUN 
1896 3BIT13=FRAMING E 
1897 ;BIT12=PARITY ERROR 
1898 006412 010102 4$: MOV R1, R2 ;DUPLICATE DATA WORD 
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Z2~CZDJA-F-0 D011 LOGIC pePa* MACY71 350A(1052) 26=FEB=79 15:47 PAGE 44 
CZDJAF .P11 C6-FEB=79 15:4 TST31: TEST ALL OF LINE 6 TRANSMIT AND RECEIVE LOGIC SEQ 0043 
1899 006414 042702 170377 BIC #170377,R2 iMASK LINE# 
1900 006420 000302 SWAB R2 LINE ? IN . a BYTE 
1901 006422 122702 000006 CMPB #6., R2 > CHECK LINE # 
1902 006426 001401 BEQ +4 ;BRANCH IF OK 
1903 0064350 104001 HLT +1 ;WRONG LINE # RECEIVED 
1904 ;R1_= CONTENTS OF RBUF 
1905 | ;BITS8-11 = LINE # 
1906 006432 117702 172726 5$: MOVB Q@DJLEN, R2 ;GET MASK OF CHARACTER 
1907 006436 1530201 BITB R2, R1 ;CHECK CHAR LENGTH. 
1908 006440 001401 BEQ +4 ;BRANCH IF Ok 
1909 006442 104002 HLT +2 ;WRONG CHARACTER LENGTH 
1910 :R1=DATA FROM FI/FO 
1911 :R2=MASK (BITS SET NOT EXPECTED) 
1912 006444 105102 6$: C R2 sREVERSE THE MASK 
1913 006446 120102 CMPB R1, R2 ;CHECK THE ACTURAL DATA 
1914 006450 001401 BEQ +4 SBRANCH IF OK 
1915 006452 104002 HLT+2 :WRONG CHAR LEN OR DATA ERROR 
1916 :R1=DATA FROM FI/FO (COMPLETE WORD) 
1917 :R2=DATA SLOW BYTE) EXPECTED 
1918 006454 017701 172642 7$: MOV @RBUF, R11 sREAD FI/FO 
1919 006460 100001 BPL +4 ;BRANCH IF CHAR PRESENT NOT SET 
1920 006462 104001 HLT +1 ; CHARACTER PRESENT STAYED SET 
1921 ;R1 = CONTENTS GF RBUF 
1922 006464 017701 172630 8$: MOV acSR, Ri : SAVE THE CSR 
1923 006470 022701 100405 CMP #100405 ,R1 >CHECK THE CSR 
1924 006474 001401 BEQ +4 7BRANCH IF OK 
1925 006476 104001 HLT +1 :DONE DIDN*T CLEAR OR CTHER CSR ERROR 
1926 7R1 = CONTENTS OF CSR 
1927 006590 005077 172620 CLR arcR ;CLEAR TCR 
1928 006504 005077 172610 CLR aCSR :CLEAR CSR 
1929 006510 104400 SCOPE 
1931 FREAK ARAAAEAARAKEA RAE ERAREREREREREREEREREERAEERARERERERREREEOEREEEER 
1932 TES? 32: TEST THAT LINE 7 CAN TRANSMIT AND 
1933 ; RECEIVE A CHARACTER. (377) 
1934 ; 1$: CHECKS THAT CHAR PRESENT z i FI/FOQ IN REASONABLE TIME. 
1935 ; 3$: CHECKS THAT NO ERRORS IN FI/FO 
4936 : 4$: CHECKS THAT RIGHT LINE # (7) IN FI/FO 
1937 ; 5$: CHECKS FOR RIGHT CHARACTER LENGTH 
1938 ; 6$: CHECKS THAT CORRECT DATA WAS RECEIVED 
193' F 7$: CHECKS THAT fa ay hg 8 ee CLEARS 
1940 ; 8$: CHECKS THAT Sas ts 
1941 >PROBABLE FAULTY LOGIC: M7285 (bo) ALL: M7279 ALL; UART CARD DO3 SERIES 
1962 eee AA AREA REA E RRR ERREERRRERERRRERERRERARRERRRERERA SERRA ERR RRR RA ERR REE 
1943 
1964 : __ INITIALIZE 
Le ; DEVICE CSR’ REGISTER se 
1947 006512 004737 014600 TST52: . JSR PC, @4INITD ;BIT2 = MAINTENANCE 
1948 3 ;BIT3 = CLEAR MOS 
1949 ;BIT8 = MASTER XMTR SCAN ENB 
1950 sWAIT FOR MOS TO CLEAR 
1951 2 SET: 
1952 ; ;BITO = RECEIVER ENABLE 
1953 


1954 006516 052777 000200 172600 ~ BIS #BIT?, a@TCR sSET XMTR CONTROL BIT, LINE 7 


7Z2-CZ2DJA=F=-0 D171 LOGIC ats 
CZ7DJAF .P11 


017701 


105102 
120702 
007401 
104002 


017701 
100001 
104001 


017701 


012737 
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172570 
000377 


172550 


172534 


001 346 
070000 


170377 
000007 


172536 


172452 


172446 
100405 


172430 
172424 


001 364 
006714 015250 


MACY11 30A(1052) 
TST32: 


172566 


LOP32: 


3$: 


4$: 


53: 


6$: 


7%: 


&$. 


F 4 
15:47 PAGE 45 


TEST ALL OF LINE 7 TRANSMIT AND RECEIVE LOGIC 


26-F EB=79 
MOV acsR R1 
BPL LOP3 
MOV #377,  aTRUF 
CLR RO 
DECB R5 
BNE 1$ 
MOV @RBUF ,R1 
BM] 3$ 
INC RO 
BNE 1$ 
MOV acsR, R2 
HLT +2 
BIS RO, TIMER 
BIT #70000, R1 
BEQ 
HLT+1 
MCV R1 R2 
BIC #170377,R2 
SWAB sé 
CMPB 7... R2 
BEQ +4 
HLT +1 
MOVB  $@DJLEN, R2 
BITR R2, R1 
BEQ mee | 
HLT+2 
COMB . 2 
(MPR, R2 
BEO +4 
HL T+? 

MOV UF, «RI 
BPL +4 

HL T+7 

MOV acsR, RI 
CMP #100405.R1 
BEG +h 

HL T+ 

CLR arcr 

CLR aCSR 

SCOPE 3 

INC DJLEN 

MOV #.+6, LAD 


;WAIT FOR XMTR READY 


;SEND A RUBOUT 
;CLEAR COUNTER 
; SHORT WAIT LOOP 


;WAIT FOR CHAR. PRES. 

BRANCH WHEN FOUND 

TIME COUNTER 

;BRANCH IF NOT TIME-OUT 

; SAVE CSR 

; CHARACTER READY fort T SET 

:R1 = CONTENTS OF 

:R2 = Sr pg ES OF CSR 

;SAVE THE TIMER 

;CHECK FOR ERROR BITS 
CH IF NONE 


; BRAN 

7 ERROR IN RECEIVED CHAR 
:R1 = CONTENTS OF RBUF 
BIT14=UART OVERRUN 


; DUPLICATE on WORD 
:MASK LI 


sLINE ¢ IN oy BYTE 
> CHECK L NE # 


OF RBUF 
# 


T MASK OF CHARACTER 
® CHECK CHAR LENGTH. 
BRANCH IF OK 


;WRONG CHARACTER _ENGTH 
:RI=DATA FROM FI/FO 
>R2=MASK (BITS SET NOT EXPECTED) 
REVERSE THE MASK 

CHECK THE ACTURAL DATA 

BRANCH IF OK 


;WRONG CHAR LEN OR DATA ERROR 
;R1=DATA FROM FI/FO (COMPLETE WORD) 
i ger Sg BYTE) EXPECTED 


;BRANCH IF CHAR PRESENT NOT SET 
CHARACTER PRESENT STAYED SET 
:R) = CONTENTS OF RBUF 

SAVE THE CSR 
S CHECK ThE CSR 
BRANCH 


H IF OK 
; DONE DIDN'T CLEAR - CTHER CSR ERROR 
*R1 = CONTENTS oF CSR 
CLEAR TCR 
>CLEAR CSR 


. 
? 
* 
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006714 


004737 


052777 


042702 
000 


117702 
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014600 


000400 
172366 


000377 


172346 


172332 


901346 
070000 


170377 
000010 


172334 


172376 


172364 


TST33: 


26-F EB-79 
TEST ALL OF LINE 8 TRANSMIT AND RECEIVE LOGIC SFO 0065 
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Be ee en UREA SHEL SSRSRTASE ATTA USS eRe EEE aethasnseeRNeena 


TEST 33! 


® PROBABLE FAULTY Wate 


TEST THAT LINE 8 CAN TRANSMIT AND 
RECEIVE A CHARACTER, (377) 
CHECKS THAT CHAR PRESENT IS ps FI/FO IN REASONABLE TIME. 
CHECKS THAT NO ERRORS be FI/F 
CHECKS THAI RIGHT LINE # (8) IN FI/FO 
CHECKS FOR RIGHT CHARACTER LENGTH 
CHECKS THAT CORRECT DATA WAS RECEIVED 
CHECKS THAT CHARACTER PRESENT CLEARS 
CHECKS THAT DONE CLEARS 
M7285 (D2-7) ALL; M7279 ALL; UART CARD DO3 SERIES 


Teer aeen TRAE ARARAER ARERR ERKEE ERRATA ERHEERHHRERE REED 


1ST33: 


JSR 


:WALT FOR MOS TO CLEAR 


LOP33: 


1$: 


3$: 


4$: 


5$: 


INITIALIZE 
DEVICE’ ‘CSR’ REGISTER aie 
PC, Q#INITD :BIT2 = MAINTENANCE 
“BIT3 = CLEAR MOS 
;BIT8B = MASTER XMTR SCAN ENS 
SET: 
sBITO = RECEIVER ENABLE 
WBITB, @TCR  ;SET XMTR CONTROL BIT. LINE 8 
ats R1 sWAIT FOR XMTR READY 
L 
#377, @aTBUF ;=SEND A RUBOUT 
RO [CLEAR COUNTER 
RS *SHORT WAIT LOOP 
@RBUF RI :WAIT FOR CHAR. PRES. 
3$ = BRANCH WHEN FOUND 
RO > TIME COUNTER 
1$ =BRANCH IF NOT TIME-OUT 
acsR,  R2 >SAVE CSR 
: CHARACTER READY DIDN'T SET 
| >R1 = CONTENTS OF RBUF 
2 = CONTENTS OF CSR 
RO, TIMER =SAVE THE TIME 
#70000, RI ‘CHECK FOR | ERROR BITS 
PEL 
sERROR IN RECEIVED CHAR 
:R1 = CONTENT 
*BIT14=UART OVERRUN 
*BIT13=FRAMING 
:BITI2=PARITY ERROR 
R1 R2 :DUPLICATE DATA WORD 
#170377,R2 [MASK LINE@ 
R2 “LINE # IN Low BYTE 
Oo RR >CHECK LINE # 
a : ANCH IF OK 
:WRONG LINE # RECEIVED 
:R1_= CONTENTS OF RBUF 
*BITS8-11 = LINE @ 
@DJLEN, R2 “GET MASK OF CHARACTER 
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CZ2DJAF P11 26-FEB-79 15:41 TST33: TEST ALL OF LINE 8 TRANSMIT AND RECEIVE LOGIC EQ 0046 

2067 007030 130201 BITR R2, R1 CHECK CHAR LENGTH. 

2068 007032 00140! BEQ 2 +4 “BRANCH IF OK 

2069 007034 104002 HL I +2 ;WRUNG CHARACTER LENGTH 

2070 =R1=DATA FROM FI/F9 

2071 ;R2=MASK (BITS SET NOT EXPECTED) 

2072 007036 105102 6$: COMB R2 ;REVERSE THE MASK 

2073 007040 120102 CMPB R1, R2 ;CHECK THE ACTURAL DATA 

2074 007042 001401 BEQ +4 “BRANCH IF OK 

2075 007044 104002 HLT +2 WRONG CHAR LEN OR DATA ERROR 

2076 :;R1=DATA FROM FI/FO (COMPLETE WORD) 

2077 “R2=DATA (LOW BYTE) EXPECTED 

2078 007046 017701 172250 7$: MOV O@RBUF, R71 :READ FI/FO 

2079 007052 100001 BPL +4 “BRANCH IF CHAR PRESENT NOT SET 

2080 007054 104001 HLT +1 ; CHARACTER PRESENT STAYED SET 

2081 :R1 = CONTENTS OF RBUF 

2082 007056 017701 172236 8$: MOV acsR,  R1 >SAVE THE CSR 

2083 007662 022701 100405 CMP #100405,R1 CHECK THE CSR 

2084 067066 001401 BEQ +h :BRANCH IF OK 

2085 007070 104001 HiT +1 :DONE DIDN'T CLEAR OR OTHER CSR ERROR 

2086 *R1 = CONTENTS OF CSR 

2087 007072 005077 172226 CLR arcr CLEAR TCR 

2088 007076 005077 172216 CLR acsR -CLEAR CSR 

2089 007102 104400 SCOPE 

2091 FERRER AAR KEARSE RAERARERAERAEARERAAERAEREEEE ERED ERR ETEK Rhee Ee 

2092 =TEST 34: TEST THAT LINE 9 CAN TRANSMIT AND 

2095 : RECEIVE A CHARACTER. (377) 

2094 : 1$: CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE TIME. 

2095 : 3$: CHECKS THAT NO ERRORS IN FI/FO 

2096 : 6$: CHECKS THAT RIGHT LINE # (9) IN FI/FO 

2097 5$: CHECKS FOR RIGHT CHARACTER LENGTH | 

2098 : 6$: CHECKS THAT CORRECT DATA WAS RECEIVED 

2099 : 7$: CHECKS THAT Sage ERE SET CLEARS 

2190 8$: CHECKS THAT DONE C 

2101 :PROBABLE FAULTY LOGIC: M7285 toe?) ALL: M7279 ALL: UART CARD DO3 SERIES 

2102 SRRRRERAEERERERERERERRARRERERRRERERRERERRARERRR REE RR EERE RRR E RRR R EEE Renee 

2103 

2104 : ITIALIZE 

2105 : DEVICE''CSRY REGISTER 

27106 . SET: 

2107 007164 004737 Gi4600 TST34: JSR PC, Q#INITD ;BIT2 = MAINTENANCE 

2108 :BIT3 = CLEAR MCS 

2109 :BIT8 = MASTER XMTIR SCAN ENB 

2110 ;WAIT FOR MOS TO CLEAR 

27117 : SET: 

e146 , sBITO = RECEIVER ENABLE 

2114 007110 052777 001000 172206 BIS #B1T9, @TCR :SET XMTR CONTROL BIT, LINE S 

2115 007116 017701 172176 LOP34: MOV acsR, Ri :WAIT FOR XMTR READY 

2116 007122 100375 BPL LOP34 

2117 007124 012777 000377 172174 MOV #377, @aTBUF  ;SEND A RUBOUT 

2118 007132 005000 CLR RO :CLEAR COUNTER 

2119 007734 105305 1$: DE Cis R5 SHORT WAIT LOOP 

2120 007136 001376 BNE 1$ 

2121 007140 017701 172156 MOV @RBUF ,R1 sWAIT FOR CHAR, PRES, 

2122 007144 100405 BM | 3$ :BRANCH WHEN F OUND 


ZZ=CZDJA=F=Q D171 LOGIC TESTS 


CZ2D 


JAt 


eh oh and od oe ok oe eS IA 
WANA AWWwnonongony 
SOUSA ISVS VY 


MMMM MN NNT 
fw 
OOS 


P17 


007146 
007150 
007152 


005200 
001371 


017702 
104002 


050037 


042702 
000 


117702 
130201 
001401 
104002 


105192 
120102 
001401 
104002 


017701 
100001 
104001 


017701 


26-F EB=79 15:41 


172142 


001 346 
070000 


170377 
000011 


172144 


172060 


172046 
100405 


172036 
172026 


MACY71 30A(1052) 
TST 34: 


3$: 


4$: 


5$: 


46$: 


73: 


8$: 


26-FEB-79 
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TEST ALL OF LINE 9 TRANSMIT AND RECEIVE LOGIC 


RO 
1$ 
@CSR, R2 


RO, TIMER 
#70000, R1 
+4 


R1 R2 

#170377,Re2 

R2 

a9... R2 

+4 

QDJLEN, Re 
nt 

R2 

R1, R2 
+4 

@RAUF, R1 
+4 

acsR, R71 

#7100495,R1 
+6 

a@TcR 

acsrR 


;TIME COUNTER 
; BRANCH 4 NOT TIME-OU! 


s SAVE CSR 
; CHARACTER READY DIDN'T SET 


:R1 = CONTENTS OF RBUF 
sRe = CONTENTS OF CSR 
;SAVE THE TIMER 


: CHECK FOR ERROR BITS 
:BRANCH IF NONE 

;ERROR IM RECEIVED CHAR 
:R1 = CONTENTS OF RBUF 
7BI1T14=UART OVERRUN 
;BIT13=FRAMING ERROR 


;BIT12=PARITY ERROR 
sDUPLICATE DATA WORD 


MASK LINE# 

sLINE # IN a BYTE 
sCHECK LINE # 

BRANCH 


H IF OK 
; WRONG LINE # RECEIVED 


OK 
;WRONG CHARACTER LENGTH 
:R1=DATA FROM FI/FO 
R2=MASK (BITS SET NOT EXPECTED) 
“REVERSE THE MASK 
: CHECK THE ao DATA 


>BRANCH IF 

:WRONG CHAR LEN OR DATA ERROR 

;R1=DATA FROM FI/FO (COMPLETE WORD) 
R2=DATA (LOW BYTE) EXPECTED 

“READ FI/FO 

7BRANCH IF CHAR PRESENT NOT SET 
> CHARACTER PRESENT STAYED SET 

;R1 = CONTENTS OF RBUF 

> SAVE THE CSR 

he THE CSR 


H IF OK 
DONE DIDN*T CLEAR OR OTHER CSR ERROR 
:R1 = CONTENTS OF CSR 

> CLEAR TCR 

;CLEAR CSR 


FEAR REAEATRERERAREREREAREREERAARRARRAAARAEERAERERERKRERARARRERARRERRERERERR ETERS 


TEST THAT LINE 10 CAN TRANSMIT AND 


; TEST 53: 


Se Se Ba Se Se Be Be 


RECEIVE A CHARACTER, 


(377) 
PRESENT . By in FI/FO IN REASONABLE TIME. 


CHECKS THAT NO ERRORS _ 


CHECKS THAT RIGHT LINE @ 


(10) IN FI/FQ 


CHECKS FOR RIGHT CHARACTER LENGTH 
CHECKS THAT CORRECT DATA WAS RECEIVED 
CHECKS THAT CHARACTER PRESENT CLEARS 


SEG 0047 


ZZ=CZDJA=F=-0 D171 LOGIC che MACY11 30A( 
CZDJAF P11 26-FEB-79 15:4 TS 


= | 


od aed ad ond 
~ 
. 


007274 004737 014600 T 


WNMASMIMIN INNO, 


~~ + - -— 
DO VRA RAS 


952777 172016 


017701 


002000 
172006 


000377 


MPOrUNoIMongNnon nny 
at I et ot = 


172004 


171766 


171752 


070000 


170377 
000012 


120102 
007401 


(1052) 
135: 


PROBABLE FAULTY LOGIC: 


26-F EB~79 
TEST ALL OF LINE 10 TRANSMIT AND RECEIVE LOGIC 


8$: CHECKS THAT DONE CLEARS 


15:47 


J 4 
PAGE 49 


M7285 (D2=7) ALL; M7279 ALL; UART CARD DO3 SERIES 


‘it eee eee eee POPP PC PPP PPP PPPS CC LCS ASSSCLCLCL&OCLOC.C. Se 2 2 2 2 


ITIALIZE 


$7355: 


IN 
DEVICE’ CSR’ REGISTER 
QF INITD ; 


JSR 


PC, 


wAIT FOR MOS TO CLEAR 


LOP35: 


001 366 5$: 


010102 4$: 


171754 5$: 


10510? 6%: 


@ 
L 


Rt Re 

#170377 Re 

Re 7 

#19. 2 
4 


ae 


@DJILEN, R2 
Re, R1 


+4 


@ 1 BUF 


R2- 


Re 


#BIT10, aTCR 
R R1 


SET; 

sRIT2 = MAINTENANCE 

;BIT3 = CLEAR MOS 

;BIT8 = MASTER XMTR SCAN ENB 
SET: 

;BITO = RECEIVER ENABLE 


:SET XMTR CONTROL BIT, LINE 10 
;WAIT FOR XMTR READY 


;SEND A RUBOUT 
;CLEAR COUNTER 
; SHORT WAIT LOOP 


sWAIT FOR eN Fc PRES. 


;BRANCH IF NOT TIME-OUT 
VE CSR 


3 SA 
CHARACTER READY DIDN*T SET 
>R1 = CONTENTS OF RBUF 
R2 = ne vies OF CSR 

VE THE TIMER 


SA 

> CHECK FOR ERROR BITS 
BRANCH IF NONE 

ERROR IN RECEIVED CHAR 


:BIT12=PARITY ERROR 

;DUPLICATE DATA WORD 
>MASK LINE# 

sLINE # IN ¥ i BYTE 

3 CHECK LINE # 
; BRANCH 


IF OK 
LINE # RECEIVED 
ENTS OF RBUF 


OK 
WRONG C gee a 
;R1=DATA FROM FI/FO 
;R2=MASK (BITS SET NOT EXPECTED) 
;REVERSE THE MASK 
5 ras sia + ta DATA 


; BRAN 
;WRONG CHAR LEN OR DATA ERROR 
:R1=DATA FROM FIZFQ CCOMPLETE WORD) 


SES 0048 
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ég=(2DJA=F-Q DS1) LOGIC TESTS MACY11 apa 1052) 26=FEB=79 

C2DJAF P11 CO-FEB=79 15:41 S735: TEST ALL OF LINE 10 TRANSMIT AND RECEIVE LOGIC SEQ 0049 
2235 7R2=DATA (LOW BYTE) EXPECTED 
2236 907426 017701 171670 ?$: MOV @RBUF, RI sREAD FI/FO 
2237 007432 100001 BPL +4 sBRANCH IF CHAR FRESENT NOT SET 
2238 007434 104001 HLT +1 ; CHARACTER PRESENT STAYED SET 
2259 | :R1 = CONTENTS OF RBUF 
2u*Q0 007436 017701 1714656 8$: MOV aCSR, ; SAVE THE CSR 
2241 0074642 022701 100405 CMP #100405, Rt ;CHECK THE CSR 
2242 007446 001401 BEQ +4 BRANCH IF OK 
2243 007450 104001 HLT +1 + DONE DIDN* T CLEAR OR OTHER (CSR ERROR 
2244 ;R1 = CONTENTS OF CSR 
2245 007452 005077 171646 CLR alcR = CLEAR TCR 
2<46 007456 005077 171636 CLR ac SR ;CLEAR CSR 
224/ 007462 104400 SCOPE 
2248 
2249 FRA EAA RARER ARRAREAHERERERAEEERRARAERERRREREREEEREEREREREERED REE REEES 
2250 sTEST 36: TEST THAT LINE 11 CAN TRANSMIT AND 
ceo} RECEIVE A CHARACTER. (377) 
2252 ; 1$: CHECKS THAT CHAR PRESENT IS ‘s FI/FO IN REASONABLE TIME. 
2253 : $$: CHECKS THAT NO ERRORS IN FI/F 
2254 : 4$: CHECKS THAT RIGHT LINE # 1) IN FI/FO 
2255 ; 5$: CHECKS FOR RIGHT CHARACTER LENGTH 
2256 6$: CHECKS THAT CORRECT DATA WAS RECEIVED 
2257 : 7$: CHECKS THAT CHARACTER PRESENT CLEARS 
2258 ‘ 8$: CHECKS THAT DONE CLEARS 
2259 >PROBABLE FAULTY LOGIC: ™7285 (b2-7) ALL; M7279 ALL: UART CARD DO3 SERIES 
2260 s TERA AAA AERA A ARH RAR AE ERAAARAERAERRERRAERERERERERERERERERERHER AREER AREAS 
2261 
2262 NITIALIZE 
2265 ; DEVICE’ CSR’ REGISTER 
2264 ; SET: 
2265 907464 004737 014600 TST36: JSR FC, Q@VINITD ;BIT2 = MAINTENANCE 
2266 BITS = CLEAR MOS 
2267 :BIT8 = MASTER XMTR SCAN ENB 
2268 ;WAIT FOR MOS 19 CLEAR 
2269 : | SET: 
oy . sBITO = RECEIVER ENABLE 
2272 007470 052777 004000 171626 BIS #BITI1, aTCR SET XMIR CONTROL BIT. LINE 11 
2275 007476 017701 171616 LOP36: MOV aCsR, Ri sWAIT FOR XMTR READY 
2274 007502 100375 BPL L OP 36 7 
2275 007504 012777 000377 171614 MOV #377, @iBUF ;SEND A RUBOUT 
2276 007512 5000 CLR RO :CLEAR COUNTER 
2277 007514 105305 1$: DECB RS ; SHORT WAIT LOOP 
2278 007516 001376 BNE 1$ 
2279 007520 017701 171576 MOV @RBUF ,R1 sWAIT FOR CHAR. PRES. 
2280 007524 100405 BM! 3$ :BRANCH WHEN FOUND 
2281 007526 005200 INC RG :TIME COUNTER 
2282 007550 001371 BNE 1$ :BRANCH IF NOT TIME-OUT 
2283 007532 017702 171562 MOV @CSR, Re ;SAVE CSR 
2284 0075356 104002 HLT +2 : CHARACTER READY DIDN'T SET 
2285 :R1 = CONTENTS OF RBUF 
2286 :Re = CONTENTS OF CSR 
2287 007540 050037 001346 5$: BIS RO, TIMER SAVE THE TIMER 
2288 007544 032761 070000 BIT #70000, RI CHECK FOR ERROR BITS 
2289 0075 001401 BEQ +4 ;BRANCH IF 
2290 007552 104001 HLT +] ERROR IN RECEIVED CHAR 


eS a DJ11 LOGIC pests 


MAC Y11 li 


26-F EB-79 
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CZDJAF P11 CO~FEB=79 15:4 156: TEST ALL OF LINE 11 TRANSMIT AND RECEIVE LOGIC SEQ 0050 
2291 3R1 = CONTENTS OF RBUF 

2292 ;BIT14=UART OVERRUN 

e295 ;B1T13=FRAMING ERROR 

2294 ;BIT12=PARITY ERROR 

2295 007554 010102 4$: MOV R1 R2 ;DUPLICATE DATA WORD 

2296 007556 042702 170377 BIC #170377,Re2 :MASK LINEM 

2297 007562 000302 SWAB R2 jLINE # IN Loy BYTE 

2298 007564 122702 000013 CMPB Wid.. R2 ; CHE CK LINE # 

2299 007570 001401 BEQ +4 ANCH IF OK 

“500 007572 104001 HLT +] ” WRONG LINE #4 RECEIVED 

2 30? =R1 = CONTENTS OF RBUF 

2302 ;BITS8-11 = LINE & 

2303 007574 117702 171564 S$: MOVB @DJLEN, R2 ;GET MASK OF oa 

2304 7 130201 BITB R2, R1 7; CHECK CHAR LENGTH 

2305 007602 001401 BEQ .%4 BRANCH IF OK 

2306 907604 104002 HLT +2 ;WRONG CHARACTER LENGTH 

2307 :R1=DATA FROM FI/FO 

2308 ;R2=MASK (BITS SET NOT EXPECTED) 

2309 007606 105102 6$: COMB R2 + REVERSE THE MASK 

2310 007619 120102 CMPB R1, R2 ;CHECK THE ACTURAL DATA 

2311 007612 001401 BEQ .*4 ;BRANCH Ir OK 

2312 007614 104002 HLT +2 ;WRONG CHAR LEN OR DATA ERROR 

2313 “R1=DATA FROM FI/FO (COMPLETE WORD) 
2314 :R2=DATA (LOW BYTE) EXPECTED 

2315 007616 017701 171500 7$: MOV - R1 *READ FI/FO 

2316 007622 100001 BPL .*4 SBRANCH IF CHAR PRESENT NOT SET 

2317 007624 104001 HLT+1 ; CHARACTER PRESENT STAYED SET 

2318 :R1 = CONTENTS OF RBUF 

2319 007626 017701 171466 8$: MOV aC SR, Ri 7SA THe CSR 

2320 007632 022701 100405 CMP #100405,R1 CHECK THE CSR 

2321 007636 001401 BEQ +4 ; H IF OK 

2522 007640 104001 HLT +1 ;DONE DIDN'T CLEAR OR OTHER CSR ERROR 
2323 :R1 = CONTENTS OF CSR 

2324 007642 005077 171456 CLR arcrR ZCLEAR TCR 

2325 007646 005077 171446 CLR aC SR > CLEAR CSR 

2326 007652 104400 | SCOPE 

2327 007654 5277 001364 INC DJLEN 

sae 007660 012737 007666 9015256 MOV #.+6, LAD 

2330 TERA TRARETAAAAARARERAE ARERR ARARERRAREAERRARRRAAR EERE ERR RERRERR EEE 
2331 -TEST 37: TEST THAT LINE 12 CAN TRANSMIT AND 

2332 Z RECEIVE A CHARACTER. (377) 

2333 : 1$: CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE TIME. 
2334 : 3$: CHECKS THAT NO ERRORS IN FI/FO 

2335 ; 4$: CHECKS THAT RIGHT LINE # (12) a FI/FQ 

2336 : 5$: CHECKS FOR RIGHT CHARACTER LENGTH 

2337 ‘ 6$: CHECKS THAT CORRECT DATA WAS RECEIVED 

2338 : 7$: CHECKS THAT CHARACTER PRESENT CLEARS 

2339 8$: CHECKS THAT DONE CLEARS 

23540 : PROBABLE FAULTY LOGIC: M7285 (D2=7) ALL; M7279 ALL: UART CARD DO3 SERIES 
2341 + eee eA AA ERR R ARERR RERER RHR RR ARERR RRR AERRERRERERRERR ERS RRR ERRORS ReRete® 
23542 

2343 _ INITIALIZE 

me: ; DEVICE’ CSR’ REGISTER oss 

2346 007666 006737 014600 1S137: JSR PC, @#INITD ;6ITe = MAINTENANCE 








Z22-CZDJA-F=0 D011 LOGIC TESTS 
CZDJAF .P11 41 


26-F EB-79 


052777 


042702 


017701 
100001 
104007 


017701 
ner ens 


Lp i 


010000 
171414 
000377 
171374 


171360 


001346 
070000 


170377 
000014 


171362 


171276 


MACY71 


171424 


171412 


26-FEB-79 2 
TEST ALL OF LINE 12 TRANSMIT AND RECEIVE LOGIC 


15:47 


sWAIT FOR MOS TO CLEAR 


OP 37: 


1$: 


3$: 


4$: 


5$: 


6$: 


7$: 


8$: 


#BIT12, aTCR 
aCSR R1 


LOP3 
#377, 
0 


@ TBUF 


RO 000 RT 


#76000 


R1 R2 
#170377.R2 
R2 


#i2., 


+4 


R2 


~ piaaeame “4 


+4 


R2 
R1, 
+4 


@RBUF, R11 


+4 


@CSR, RI 
#100405,R1 
+4 


M 4 
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s;BIT3 = CLEAR MOS 

;BI1T8 = MASTER XMTR SCAN ENB 
SET: 

;B1TO = RECEIVER ENABLE 


sSET XMTR CONTROL BIT, LINE 12 
sWAIT FOR XMTR READY 


:SEND A RUBOUT 
:CLEAR COUNTER 
; SHORT WAIT LOOP 


sWAIT FOR CHAR. PRES. 
;BRANCH WHEN FOUND 

; TIME COUNTER 

:BRANCH IF NOT TIME-OUT 


; SAV 
;CHARACTER READY DIDN'T SET 
:R1 = CONTENTS OF RBUF 
:R2 = vee v take OF CSR 
SAVE T 
CHECK FOR TERROR BITS 

NONE 


BRANCH IF 
s;ERROR IN RECEIVED CHAR 
RBUF 


: DUPLICATE DATA WORD 


L 
LINE # IN a BYTE 
i LINE # 


IF OK 
LINE # RECEIVED 
RBUF 


OK 
WRONG CHARA A ere 
;RI=DATA FROM FI/F 
;R2=MASK bt SET “NOT EXPECTED) 
REVERSE T 
:CHECK THE ACTURAL DATA 
;BRANCH IF OK 


SWRONG CHAR LEN OR DATA ERROR 
*RI=DATA FROM FI/FO (COMPLETE WORD) 
ee riveoy EXPECTED 


H_IF CHAR PRESENT NOT SET 
; CHARACTER ne STAYED SET 
gh NTS OF RBUF 


;BRANCH IF OK 


SEQ 0051 


ZZ~CZDJA=F=0 D411 LOGIC ys oh 


MACY11 30A(1052) 
TST3?: 


26-FEB-79 
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CZDJAF.P11 26=FEB-79 15:4 TEST ALL OF LINE 12 TRANSMIT AND RECEIVE 1OGIC 
2403 010042 104001 HLT +1 ;DONE DIDN'T CLEAR OR OTHER CSR ERROR 
2404 *R1 = CONTENTS OF CSR 
2405 010044 005077 171254 CLR aTCR “CLEAR TCR 
2406 010050 005077 171244 CLR aCcSR “CLEAR CSR 
3407 010054 104400 SCOPE 
2409 2 Re Re Re Be Be Be I RS EERE EEE 
2410 : TEST 40: TEST THAT LINE 13 CAN TRANSMIT AND 
2411 : RECEIVE A CHARACTER. (377) 

2412 : 1$: CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE TIME. 
2413 : 3$: CHECKS THAT NO ERRORS IN FI/FO 

2414 : 4$: CHECKS THAT RIGHT LINE # (13) IN FI/FO 

2415 : 5$: CHECKS FOR RIGHT CHARACTER LENGTH 

2416 : 6$: CHECKS THAT CORRECT DATA WAS RECEIVED 

2417 : 7$: CHECKS THAT CHARACTER PRESENT CLEARS 

2418 8$: CHECKS THAT DONE CLEARS 

2419 * PROBABLE FAULTY LOGIC: M7285 (D2=7) ALL; M7279 ALL; UART CARD DO3 SERIES 
2420 SRC TOTTI TTT TOOTH RRR REE EKER REKERRERRERERE EERE 
2421 

2422 : INITIALIZE 

2428 ; DEVICE’ 'CER’ REGISTER ae 

2425 010056 004737 014600 TST40: JSR PC, Q@#INITD :BIT2 = MAINTENANCE 

24,26 :BIT3 = CLEAR MOS 

2427 :BIT8 = MASTER XMTR SCAN ENB 
2428 :WAIT FOR MOS TO CLEAR 

2429 2 SET: 

2630 : :BITO = RECEIVER ENABLE 

2432 010062 052777 020000 171234 BIS #RIT13, aTCR :SET XMTR CONTROL BIT. LINE 13 
2433 010070 017701 171224 LOP40: MOV acsR, Ri :WAIT FOR XMTR READY 

2434 010074 100375 BPL LoP46 

2435 010076 012777 000377 171222 MOV #377, @TBUF  ;:SEND A RUBOUT 

2436 010104 005000 CLR RO :CLEAR COUNTER 

2437 010106 195305 1$: DECB sé :SHORT WAIT LOOP 

2438 010110 001376 BNE 1$ 

2439 019112 017701 171204 MOV @RBUF ,R1 :WAIT FOR CHAR. PRES. 

2440 010116 100405 BM! 3$ :BRANCH WHEN FOUND 

2441 010120 005200 INC RO :TIME COUNTER 

2442 010122 001271 BNE 1$ : “BRANCH IF NOT TIME-OUT 
2443 010124 017702 171170 MOV acsR, R2 :SAVE CSR 

2444 0101 104002 HLT+2 - CHARACTER READY DIDN'T SET 
2445 7R1 = CONTENTS OF RBUF 

2446 :R2 = CONTENTS OF CSR 

2447 010132 050037 001346 3g: BIS RO, 7 IMER -SAVE THE TIMER 

2448 010136 032701 070000 BIT #76000, R1 :CHECK FOR ERROR BITS 

2449 010142 001401 BEQ ;BRANCH IF NONE 

2450 010144 104001 HLT +1 :ERROR IN RECEIVED CHAR 

2451 7R1 = CONTENTS OF RBUF 

2452 *BIT14=UART OVE 

2453 :BIT13=FRAMING ERROR 

2b :BIT12=PARITY ERROR 

2455 010146 010102 4$: MOV R1 R2 :DUPLICATE DATA WORD 

2456 010150 042702 170377 BIC #170377.Re :MASK LINE# 

2457 010154 000302 SWAB —s-R2 : LINE ; IN LOW BYTE 

2458 010156 122702 000015 C(MPB =so#13., ~—R2 *CHECK LINE # 
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010210 
010214 
010216 


010220 
010224 
0102350 
010232 


010234 
010240 
010244 


010246 


010252 


001401 
104001 


117702 


104002 


105102 


005077 
005077 
104400 


004737 


052777 
017701 
100375 
012777 
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171172 


171106 


171074 
100405 


171064 
171054 


040000 
171034 


000377 
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TST4O: TEST ALL OF LINE 13 TRANSMIT AND RECEIVE LOGIC 
BEQ +4 ;BRANCH IF OK 
HLT +1 [WRONG LINE # RECEIVED 
:R1_= CONTENTS OF RBUF 
:BITS8-11 = LINE # 
5$: MOVB Q@DJLEN, R2 ;GET MASK OF CHARACTER 
BITB Re, R1 ;CHECK CHAR LENGTH. 
BEQ +4 :BRANCH IF OK 
HLT+2 :WRONG CHARACTER LENGTH 
;R1=DATA FROM FI/FO 
sR2=MASK (BITS SET NOT EXPECTED) 
6$: COMB R? :REVERSE THE MASK 
CMPB R1, R2 ;CHECK THE ACTURAL DATA 
BEQ sw :BRANCH IF Ok 
HLT +2 :WRONG CHAR LEN OR DATA ERROR 
;R1=DATA FROM FI/FO (COMPLETE WORD) 
:R2=DATA (LOW BYTE) EXPECTED 
7$: MOV @RBUF, R1 ;READ FI/FO 
BPL + :BRANCH IF CHAR PRESENT NOT SET 
HLT +1 ; CHARACTER PRESENT STAYED SET 
;R1 = CONTENTS OF RBUF 
8$: MOV aCSR,_ Ri :SAVE THE CSR 
CMP —s-#100405.R1 :CHECK THE CSR 
BEQ #4 ZBRANCH IF OK 
HLT +1 ; DONE DIDN'T CLEAR OR OTHER CSR ERROR 
:R1 = CONTENTS OF CSR 
CLR aTCR = CLEAR TCR 
CLR aCSR CLEAR CSR 
Sc 
J ERA REREREEKEEEAREKRAEREREKREERARAREARKKREREAREEEERAERKEREKEREKKEEERERKREEES 
ZTEST 41: TEST THAT LINE 14 CAN TRANSMIT AND 
RECEIVE A CHARACTER. (377) 
1$: CHECKS THAT CHAR PRESENT IS IN F1/FO IN REASONABLE TIME. 
3$: CHECKS THAT NO ERRORS IN FI/FO 
4$: CHECKS THAT RIGHT LINE # (14) IN FI/FO 
S$: CHECKS FOR RIGHT CHARACTER LENGTH 
; 6$: CHECKS THAT CORRECT DATA WAS RECEIVED 
7$: CHECKS THAT CHARACTER PRESENT CLEARS 
8$: CHECKS THAT DONE CLEARS 
;PROBABLE FAULTY LOGIC: M7285 (D2=7) ALL: M7279 ALL; UART CARD DO3 SERIES 
FEAR AA ERARAEERAEAERAEAEEERAREREEERERARARERERRERERERAERERRARERERREDRREREEEE 
| INITIALIZE 
DEVICE''CSR’ REGISTER om 
TST41: JSR PC, ~—Ss @WINITD ;BIT2 = MAINTENANCE 
:BIT3 = CLEAR MOS 
:BITB = MASTER XMTR SCAN ENS 
;WAIT FOR MOS TO CLEAR me 
; :BITO = RECEIVER ENABLE 
171044 BIS #BIT14, @TCR —; SET_XMTR CONTROL BIT, LINE 14 
LOP41: MOV aCSR, RI :WAIT FOR XMTR READY 
BPL —s_LOP4/ 
171032 MOV #377, + a@TBUF  ;SEND A RUBOUT 


SEQ 0053 


Cc 
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TEST ALL OF LINE 14 TRANSMIT AND RECEIVE LOGIC 


sCLEAR COUNTER 
; SHORT WAIT LOOP 


ZWAIT FOR CHAR. PRES. 
;BRANCH WHEN FOUND 

3; TIME COUNTER 

;BRANCH JF NOT TIME-OUT 
;SAVE CSR 

; CHARACTER READY DIDN'T SET 
3R1 = CONTENTS OF RBUF 


:R2 = CONTENTS OF CSR 

:SAVE THE TIMER 

: CHECK FOR ERROR BITS 
CH IF NONE 


: BRAN 
s ERROR IN RECEIVED CHAR 


:B1T13=FRAMING ERROR 
:BIT12=PARITY ERROR 
:DUPLICATE DATA WORD 
sMASK LINEA 

SLINE # IN _ BYTE 
‘BRANCH LINE # 


H IF OK 
WRONG LINE # RECEIVED 
TENTS OF 


OK 
:WRONG CHARACTER LENGTH 
:R1=DATA FROM FI/FO 
R2=MASK (BITS SET NOT EXPECTED) 
“REVERSE THE MASK 
; CHECK THE ACTURAL DATA 
[BRANCH IF OK 


:WRONG CHAR LEN OR DATA ERROR 
:R1=DATA FROM FI/FO (COMPLETE WORD) 
:R2= “¢n (LOW BYTE) EXPECTED 
READ FI/FO 
;BRANCH IF CHAR PRESENT NOT SET 
; CHARACTER PRESENT STAYED SET 
R1 = CONTENTS OF RBUF 
>SAVE THE CSR 
[CHECK THE CSR 


BRANCH IF OK 

:DONE DIDN'T CLEAR OR OTHER CSR ERROR 
:R1 = ae OF CSR 

:CLEAR TCR 

:CLEAR CSR 


* 


LEAR AREA REE EERARAERAERERAAREREERRERRERERRE RARER ES 


TEST THAT LINE 15 Saad ai AND 


27-CZDJA-F-0 DJ11 LOGIC TESTS MACY11 30A(1052) 26=FEB-79 
CZ2DJAF .P11 26~-FEB-79 15:41 TST41: 
2515 010274 005000 CLR RO 
2516 010276 105305 1$: DECR ~—s RS 
2517 010300 001376 BNE 1$ 
2518 070302 017701 171014 MOV @RRUF .R1 
2519 010306 100405 BM] 3g 
2520 010310 005200 INC RO 
2521 010312 001371 BNE 1$ 
2522 010314 017702 171000 MOV acsR,  R2 
2523 010320 104002 HL T+2 
2524 
2525 
2526 010322 050037 001346 3$: BIS RO, TIMER 
2527 010326 032701 070000 BIT #70000, R1 
2528 010332 001401 BEQ 
2529 010334 104001 HLT +1 
2530 | 
2531 
2532 
2533 
2534 010336 010102 4$: MOV R1 R2 
2535 010340 042702 170377 BIC #170377.R2 
2536 010344 000302 SWAB sé 
2537 010346 122702 000016 (MPR so#'14.. ~—R2 
2538 010352 0601401 BEQ ; 
2539 010354 104001 HLT+1 
2540 
2541 
2542 010356 117702 171002 S$: VB  aDJLEN, R2 
2543 010362 730291 BITB z R1 
2544 010364 001401 Q +4 
2545 010366 104002 HLT+2 
2546 
2547 
2548 010370 105102 6$: COMB —s R2 
2549 010372 120102 CMPB RT, R2 
2550 ©10374 001401 BEQ +4 
2551 010376 104002 HLT +2 
2552 
2553 : 
2554 010400 017701 170716 7$: MOV @RBUF, 1 
2555 010404 100001 BPL +4 
2596 010406 104001 HLT +1 
2558 010410 017701 170704 8$: MOV acsR, Ri 
2559 010414 022701 100495 CMP #100405, R1 
2566 010420 001401 BEQ 
2561 010422 104 HL T+1 
2563 010424 005077 170674 CLR artcR 
2564 010430 005077 170664 CLR acsR 
2565 010434 7104400 SCOPE 
2566 
2567 
seep Air: RECE] 
2570 : 1$: 


VE A CHARACTER 


CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE TIME. 
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010526 


010542 
010544 
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010556 


004737 
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017701 
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014600 


100000 
170644 


000377 


170624 


170610 


001346 
070000 


170377 
000017 


170612 
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170654 


170642 
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TEST ALL OF LINE 15 TRANSMIT AND RECEIVE LOGIC 


3$: CHECKS THAT NO ERRORS IN FI/FO 
4$: CHECKS THAT RIGHT LINE # (15) IN FI/FO 


CHECKS FOR RIGHT CHARACTER LENGTH 
: CHECKS THAT CORRECT DATA WAS RECEIVED 
7$: CHECKS THAT CHARACTER PRESENT CLEARS 


M7285 (D2-7) ALL; M7279 ALL; UART CARD DO3 SERIES 


SRR RRR KEE 


: S$: 
: 6$: 
8$: CHECKS THAT DONE CLEARS 
® PROBABLE FAULTY LOGIC: 
INITIALIZE 
DEVICE’ 'CSR' REGISTER 
TST42: JSR PC, av INITD 


:WAIT FOR MOS TO CLEAR 


BIS #B1T15, aTCR 


LOP42: MOV acsR 
BPL LOP4 
MOV #377 a TBUF 
CLR RO 

1$ DECB R5 
BNE 1$ 
MOV @RBUF .R1 
BMI 3$ 
INC RO 

V acsR,  R2 

HLT+2 

S$: BIS RO, TIMER 
BIT #70000, R1 
BEQ +4 
HL T+1 

4$: MOV RI R2 
BIC #170377.R2 
SWAB sé 
(MPR so#15., ~—R2 
BEQ +4 
HLT +7 

S$: MOVB @DJLEN, Re 
BITB Re, R1 
BEO ie 
HLT +2 


ET: 

;BIT2 = MAINTENANCE 

;BITS = CLEAR MOS 

;BIT8 = MASTER XMTR SCAN ENB 
SET: 

:BITO = RECEIVER ENABLE 


;SET “MTR CONTROL BIT, LINE 15 
sWAIT FOR XMTR READY 


> SEND A RUBOUT 
:CLEAR COUNTER 
; SHORT WAIT LOOP 


;WAIT FOR CHAR. PRES. 

BRANCH WHEN FOUND 

: TIME COUNTER 

;BRANCH IF NOT TIME-OUT 

SAVE CSR 

; CHARACTER READY DIDN'T SET 

:R1 = CONTENTS OF RBUF 

;R2 = CONTENTS OF CSR 

>SAVE THE TIMER 

+ CHECK FOR ERROR BITS 
H IF NONE 


ERROR IN ate ne CHAR 
: OF RBUF 


3BIT12=PARITY ERROR 
sDUPLICATE DATA WORD 


ZMASK LINE# 
LINE # IN ey BYTE 
io 2 


> CHECK 

: H IF OK 

;WRONG LINE # RECEIVED 
3R1 = CONTENTS OF RBUF 


CH OK 
“WRONG CHARACTER ne 
:R1=DATA FROM FI/FO 
;RO=MASK (BITS SET NOT EXPECTED) 


SEQ 0055 


ZZ2~CZDJA=F=0 OJ11 LOGIC TESTS 
CZDJAF .P11 


010560 
010566 


010570 
010574 
010576 


010670 


010720 
070722 


010724 
0107350 


010732 


105102 
120102 
001401 
104002 
017701 
100001 
104001 
077701 


0127357 


004737 


612777 


105777 
100375 


052777 
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170526 


170514 
100405 


170504 
170474 


000003 


001346 
001346 


001546 
001346 
610670 


014600 


000007 
000040 
770406 
170406 


170370 


000010 


MACY71 30A(1052) 
TST42: 


001364 


015250 


170422 


170360 


6$: 


7$: 


8$: 


26-F EB-79 
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TEST ALL OF LINE 15 TRANSMIT AND RECEIVE LOGIC 


R2 SREVERSE THE MASK 

R1, R2 ; CHECK THE ACTURAL DATA 

+4 “BRANCH iF OK 
;WRONG CHAR LEN OR DATA ERROR 
*R1 =DATA FROM FI/FO (COMPLETE WORD) 
*R2= DATA (LOW BYTE) EXPECTED 

@RBUF, R17 ;READ FI/FO 

+4 “BRANCH IF CHAR PRESENT NOT SET 
i CHARACTER PRESENT STAYED SET 
7R1 = CONTENTS OF RBUF 

acsR, R1 sSAVE THE CSR 

#100405,R1 : CHECK THE CSR 

+4 ANCH IF OK 
* DONE DIDN’T CLEAR OR OTHER CSR ERROR 
Ri = 5 gaa OF CSR 

aTCR ; CLEAR 

acsR ; CLEAR CSR 

#3, DJLEN 

TIMER ;WORSE CASE TIME, ONE CHARACTER 

TIMER, RO :DUP TIMER 

RO sle 

RO 2/4 

RO 7+] 

TIMER TIMER * 2 

RO, TIMER +2. 25 TIMES ONE CHARACTER TIME 

#.+6, LAD *RESET LOOP ADDRESS 


FEAR AEREEKAERAREREAREAEERERAEEAAERARARERREREREEAREKEERAKARAAEKRERRE KEE 


TEST THAT CHARACTER PRESENT (B1T15) OF RBUF 


TEST 43: 


I$ 
:PROBABLE FAULTY LOGIC: 


CLEARED (BY CLEAR MOS). 


M7285 (D2-8) £17,£14.E15; M7279: M7280 


+e eee AeA AERA ERRARKRERRREEERKEERARRERRERREREREERERSRRERERERRE RE RR EES E EES 


1S143: 


sSt 7% 


INITIALIZE 
JSR PC ,@FINITD 
BIT2 = MAINTENANCE 
BITS = CLEAR MOS 
BIT8 = TRANS SCAN ENABLE 
WAIT FOR BiT4 = MOS CLEAR 
BITO = RECEIVER Se pe 
MOV MBITO, a’}c ; TRANS CONTROL, LINEO 
MOV :SET UP COUNTER TO OUTPUT 32 CHAR'S 
Arty acSR, RI sWAIT FOR TRANS READY 
L 
MOV R4 ,aT BUF ; TRANSMIT COUNT 
— DEC RS 3 ; COUNT DOWN 
BNE 1$ 
TSTB aCSR sMAKE SURE DONE IS SET 
BPL 2$ 
BIS #B11T3,aCSR sCLEAR MOS 


SEQ GO56 


2Z2-CZ2DJA=F=0 DUT) 


CZ2ZDJAF .P11 


010740 
010746 


010750 


010772 


010774 


011012 
011014 


011016 
071020 


011022 
011026 
017030 
011032 
011036 
011040 


011042 
071646 


077052 


017054 


032777 
001374 


017701 
1 1 


106001 


013700 
105505 
001376 


017701 
1905701 
100001 


104061 


005 300 
C01 367 


022701 
001491 
104001 
077701 
100001 
104001 


005077 
005077 


104400 


004737 


LOGIC TESTS 
CO-FEB=79 15:41 


000020 


170346 


170334 
100405 


001346 


170516 


100405 


170264 


170256 
170246 


014600 


MACY71 30A(1052) 
TST43: 


170352 





F § 
PAGE 58 


;WAIT FOR CLRMOS TO FINISH 
;CHECK RBUF AND SAVE 


; SAVE CSR 

; CHECK Fa 

BRANCH IF 

;CSR ERROR. “POSSIBILITES: 
:(1) DONE DIDN'T CLEAR 


;(2) TRANSMITTER UART DIDN*’T CLR. 
:R1=CONTENTS OF CSR 


;SET UP TIMER 
SHORT WAIT LOOP 


:SAVE CSR 
;CHECK FOR DONE 
SBRANCH IF OK 
;DONE C iP! 

7MOS MUST NOT HAVE CLEARED 
TIMER COUAT 


+ CHECK CSR 


:RBUF NOT EMPTY: 


FERRARA AREER EAAERAEAEARESRARAERERHRAAAARRERERERERERERAS RR RERRRR REE ES 


TEST THAT TRANSMITTER READY CLEARS WHEN TBuUF iS LGADED 


o 
ao 
. 


; MUST 
;PROBABLE FAULTY LOGIC: 


26-FEBH$79 15:47 
TEST CEAR MOS 
3$: BIT #B1T4,aCSR 
BNE 3$ 
MOV @RRUF ,R1 
BPL 2 +4 
Hi T+] 
MOV aCSR,R?} 
CMP a! ia 05, 
BEQ ; 
HLT +1 
MOV TIMER, RO 
4%: DECB R5 
BNE 4$ 
MOV aC SR.RI 
TSTB R1 
BPL %4 
AL T+1 
DEC RO 
BNE 4$ 
CMP #1004605 ,R1 
BEO m4 
HLT +1 
MOV @RBUF ,R1 
BPL +4 
HLT +7 
CLR arcr 
CLR acSk 
SCOPE 
sTEST 44: 
NOTE: DUE TO 


THE ote A oe! 
BE LOADED 
M7285 (D2=6) “E39. E23 


te? age BY THE UART., TwO CHARACTERS 
URE ae TRANSMITTER READY CLEAR 


ban FUPERKAVER ALOR TT ELA AE OTE RAa orator neti n ence Codi unnuaweicsaansdes 


TST44: 


NITIALIZE 


] 
DEVICE’ CSR’ REGISTER 


JSR 


PC a#INITD 


sWAIT FOR MOS TO CLEAR 


- 
‘ 


SET: 

sB1T2 = MAINTENANCE 

:BITS = CLEAR MOS 

;BIT@® = MASTE® KMTR SCAN ENS 
SET 


me ee al ia ms) 


SEQ 0057 


EE Ee RE Sa cee % R te eo een Se SR 6 = RRR a 


Z22=-CZD2A-F=Q Dil LOGIC TESTS 
CZDJAF P11 


tet ed ed ond ed ed ed et eed ee med aed ed oD nd 
ek ed eed ed ed od od ed 

td wd md and td CD 
AWM MUN -4*-OO~nN RS 
ENO RNZORVANZS 


COOSCOSCD DBDODOCOOOCOCO 
ad och ad eel eccd cnt eed 


a> 
O&M 


011164 
011170 
011172 


011174 
011200 
011202 


011204 
017210 
017212 


911214 
011220 
011222 


011224 
011239 
011232 


011234 
011240 
011244 
011246 


071250 
617254 
0174260 


052777 
017701 


100001 
104001 


105305 


005 300 
001371 
042701 
G22701 


007401 
104007 


017701 


022761 
001401 
104001 


017701 


017701 
100001 
104001 
017701 


005077 
005077 
104400 


C6-FEB=79 15:41 


000001 
170226 


00000? 
170212 


000002 
170176 


001346 


170756 


000200 
100405 


170132 


100001 


170112 


100002 


170072 


170060 
100405 


170050 
170040 


MACY11 30A(1052) 
TST44: 


170236 


170224 


170210 


2s: 


3$: 


26-F EB-79 
TEST TRANSMIT READY 


ABITO, a@TCR 
. R1 


acsr, 

1$ 

#1, a 7 BUF 
@CcSR, R11 
2$ 

#2, aT BUF 
acSR, R17 
+4 

TIMER, RO 
R5 

3$ 

acsk,  R1 
e 

RO 

33 

#BIT?7 
migoebs, R1 
@RBUF, RI 
+4 
#100001 ,R1 
+6 

@RAUF, R1 
.t4 
#'00002,R1 
~*4 

@RBUF, R1 
+4 

acse R1 
#100405,R1 
*4 

aTcR 

acsR 


gq § 
15:47 PAGE 59 


sBITO = RECEIVER ENABLE 


; TRANS CONTROL, LINE 0 
;WAIT FOR XMTR READY 


; TRANSMIT A 1 
:WAIT FOR XMTR READY 


; TRANSMIT A 2 
; CHECK FOR XMTR READY 


;BRANCH IF XMTR READY CLEARED 


5 Lines 7 TER READY FAILED 10 CLEAR 


:R1 = CONTENTS OF CSR 
sSET “UP TIMER 
:SHORT WAIT LOOP 


+ SAVE CSR FOR THE RECORD 
ING 

;BRANCH IF MORE TIME 

> TEST REST OF THE CSR 


zA CSR ERROR 
3R1 = CONTENTS OF CSR 


: CHECK RBUF FOR CHAR PRESFNT 
:BRANCH IF CHAR PRESENT 
7CHAR PRESENT MISSING 

:R1 = CONTENTS OF RBUF 


ate cer ERROR 


: CHAR PRESENT MISSING 
R1 = CONTENTS OF RBUF 
CHECK THE DATA 
H IF OK 


*BRANC 
7RECEIVER ERROR 
RI = CNTENTS OF RBUF 
; CHECK FOR NO MORE CHARACTERS 
*BRANCH IF CHAR PRESENT a 
;CHAR PRESENT NOT CLEAR 
*R1 = CONTENTS OF RBUF 
= SAVE CSR 
; CHE CK CSR 
vor ce aie OK 


CSR 

:R1 = CONTENTS OF CSR 
:CLEAR TCR 

:CLEAR CSR 


;DONE MAY OR MAY NOT BE SET SO DONT TEST FOR iT 


i ah DJ11 £ OBA T 
C2DJ C6~FEB=79 15:4 


AF P11 


011262 


a et at =) 


011376 


C11400 
011402 
011404 


011406 
017412 
011414 


011416 


011432 
017434 


004737 


052777 
005737 


004 
012737 
012777 


032777 
001374 


013702 
077701 


000402 
005300 
366 


ESTS 


014600 


000001 
001350 


014644 
000001 
000474 
000020 


001356 
167756 
000252 
001 346 


167726 


1677106 


167676 
167674 


MACY11 30A 
TS 


170030 
001350 


167776 


167770 


167754 


(1052) 
145: 


26-FEB-79 


H § 
15:47 PAGE 60 


TEST SILO ALARM LEVEL / RECEIVER ENABLE 


lettin thee hee eee eee ee PPP PPE PSE SECC COCALO. See ee 


TEST THE SILO ALARM LEVEL AT WHICH DONE WILL SET. 


TEST 45: 


C 
PROBABLE FAULTY LOGIC: 


TEST THAT RECEIVER ENABLE ON A © INHIBITS 


HARACTER PRESENT. 
M7285 (D2-7) £32, E15; M7279 (D11~3) E19,E23 


jenna ReAaNNeaSessensnnyesetesensssenensmtasnaserestersscseassesonestene 


TST45: 


IALIZE 


INIT 
DEVICE’ 'CSR' REGISTER 


JSR 


PC ,@#INITD 


sWAIT FOR MOS TO CLEAR 


SET: 

:BIT2 = MAINTENANCE 

3BIT3 = CLEAR MOS 

sBIT8 = MASTER XMTR SCAN ENB 
SET 


7BITC = RECEIVER ENABLE 
“TRANS CONTROL, LINE © 
iHAS THE ALARM LEVEL BEEN TESTED? 


:NO, GO DO IT 
:SET THE FLAG 
;BIT2 


= MAINTENANCE 
:BIT3 = CLEAR MOS 
;BIT8 = MASTER TRAN SCAN EAB 


;WAIT FOR MOS TO CLEAR 


;O0U;PUT THE # OF ge aa NECESSARY FOR THE SILO ALARM 


BIS #BI'O, a@TICR 
TST ALMFLG 
BNE 11 
JSR PC ,ALMCK 
MOV #1 ALMFLG 
11$: MOV #414, aCSR 
10$: BIT ##B1T4, aCSR 
BNE 1 
sLEVEL TO ALOW DONE T 
MOV COUNT ,.R2 
1$: MOV acsr, 
BPL 1$ 
MOV #252,  aTBuF 
DEC R2 
BNE 1% 
V TIMER, RC 
2$: DECB 5 
BNE ¢ 
MOV aCSR, R1 
TSTB R1 
BPL 3$ 
HLT +1 
BR 4$ 
3$: DEC RO 
BNE 2$ 
4$: MOV @RSUF, R1 
BPL +4 
HLT+1 
INC acsSR 
5$: MOV @RBUF, Rt} 
6M! 6$ 
DECB RO 
BNE S$ 
Hi T+] 


;SET CHAR COUNT 
7WAIT FOR XMIR READY 


> SEND AN omer 


3SET UP TIMER 
:SHORT WAIT LOOP 


;SAVE CSR ®GR TYPING 

: CHECK FOR DONE 

;BRANCH JF NOT SET 

;DONE SET WHEN RCV ENB SLR 
>RI=CONTENTS OF CSR 


> TIMER COUNT 
;BRANCH IF MORE TIMER 


;CHECK AND SAVE FI/FO 
;BRANCH IF OK 

; CHARACTER oe eto IN FIFO 
:RI=DATA FROM FI/FO 

SET RECEIVER ENABLE 

:CHECK FOR CHARACTER PRESENT 
>BRANCH IF OK 

;SHORT TIMER 


: CHARACTER PRESENT MISSING 


SEG 0059 








ZZ=CZDJA=F=0 D1? LOGIC of 
CZDJAF .P11 


011436 
011442 


011444 


011450 


011456 
011462 


011522 
011524 
011526 
011550 


011532 


011550 


011570 
011574 





26-F EB=79 


005077 
104400 


004737 


012777 


013702 
017701 


104400 


15:4 


167662 


014570 


000001 
001356 
167632 
000252 
001346 


167602 


167564 


000002 


167536 


16753C 





MACY11 30A(1052) 
TS'SS: 


167646 


167650 


167550 


o$: 


‘itt AP ACESS SSE SE CLECCLCCLCCL CL. .T 


sTEST 46: TEST THAT HALF DUPLEX (BIT1) iar THE he he UARTS. 


26-F EB-79 


I 5 
15:47 PAGE 61 
/ RECEIVER ENABLE 


TEST SILO ALARM LEVEL. 


CLR 
SCOPE 


aTcR 


:PROBABLE FAULTY LOGIC: 


Seley pernen Pirlsirertebe bgp Sante plc Mis 9 Hin Rrra By duel Ag 5 ile At 


‘INITIALIZE 
IT1 = HALF DUPLEX 
MAINTENANCE 
CLEAR MOS 
; MASTER TRAN SCAN ENB 
;WAIT FOR MOS TO CLEAR 
:B1T0 = RECEIVER ENABLE 

MOV qa sSET XMTR CONTROL BIT, LINEO 

sOUTPUT THE # OF CHARACTERS NECESSARY FOR THE SILO ALARM 


TST46: 


JSR 


PC, 


#B1T0, 


; = CONTENTS OF RBUF 
;CLR TRANS CONTROL REG 


M7285 (D2=4) E32, E17 


aA INITC 


TCR 


sLEVEL TO ia DONE TO SET 
COUNT 


1$: 


23: 


3$: 


4$: 


$$: 


PAAR EERE AREER EEE AREA RE RRR REREE AK RARRRE RE RERRR RR ERR RE eee eee 


BE OE ae © Se 


SCOPE 


acsR, 
1$ 
#252, 


aTCR 


@RBUF , 
4 


@TBUF 


RO 


RI 


R1 


a¢SR 


R1 


3SET CHAR COUNT 
sWAIT FOR XMTR READY 


: SEND AN eeaee 


sSET UP TIMER 
:SHORT WAIT LOOP 


;SAVE CSR 
sCHECK FOR DONE 

;BRANCH IF NOT SET 

7DONE SET WHEN HALF DUPLEX (BIT?) SET. 
“Riz CONTENTS OF CSR 


s TIMER COUNT 
;BRANCH IF MORE TIMER 


; CHECK AND SAVE FI/FO 
H IF OK 


SCHARACTER PRESENT IN F1/FO 
;R1=DATA FROM FI/FO 
>CLEAR HALF DUPLEX BIT 


; CHECK FOR CHAR ot hee 
;BRANCK IF CHAR NOT PR 
> CHAR PRESENT AFTER H/D CLEARED 
;R1 = CONTENTS OF RBUF 
:CLR TRANS CONTROL REG 


SEQ 0060 


LS LI LE I IL LC EOE SE LS LEG OES LN CT I ES EE A A NN RR 


J 
MACY77 30A(1052) 26€=FE8-79 15:47 PAGE 62 
TST47: TEST RECEIVER INTERRUPT LEVEL 





ZZ=CZ2DJA=F-0 DJ11 LOGIC er? 


CZ7DJAF .P11 C6~FEB=79 15:4 SEQ 0061 
2907 sTEST 47: TES: RECEIVER INTERALHT A is 
2908 ; ERROR PRINT OUT 7 AS FOLLOWS 
Soup : ADDR CJADR ROR 
2911 2 ADDR= ADDRESS OF ERROR HLT 
2912 ; DJADR= CSR ADDRESS OF DJ11 UNDER TEST 
2913 : R1- BR LEVEL FOR DJ171 TO ALLOW INTR 
Sore : R2= BR LEVEL WHERE ERROR OCCURED 
3916 sPROBABLE FAULTY LOGIC: M7821 WIRING, PROPER PRIORITY CHIP 





23917 SRR RRR EER REE REE EERE 
2918 

2919 011576 012777 011736 167524 TST47: MOV #INTR2,@RCVVEC ; SET UP RCVR INTERRUPT VECTOR 
2920 011604 012777 000340 167520 MOV #340, @RCVLVL ; AT LEVEL 7 

2921 011612 012737 OOOO1C 017214 MOV #10, PRIOLO ; LOAD BR7+1 INTC BR TEST LEVEL 
2922 011620 012737 00005 017226 AGAIN2: MOV #5,CT ; LOADS COUNTER FOR 5 RCL -BR 
29235 011626 5337 017214 DEC PRIOLO ; START TEST BR7, THEN BR6,BRS.. ETC. 
2924 011632 C13737 017214 017216 MOV PRIOLO,NOW ; LOAD PRE-ROL-ED £ aes PRIO 
2925 011840 004737 014464 JSR PC, BRSET ; 60 TO SUBROUTINE TO :::::: 
2926 ; LOAD BR INTR LEVEL OF DJ11 
2927 ; (LEVELJ= DECIMAL #(0 TO 7) 
2928 ; (MASK)= OCTAL #(0 TO 340> 

2929 ; (0,40,100, 140,200,240, 300. 340) 
2930 >; GROW = OCTAL #(0 TO 340) AS 
2931 . SK, BUT CURRENTLY TESTING 
2922 011644 042737 000340 177776 BIC #340 ,a4PS : CLEAR PS LEVEL 

2933 011652 053737 017216 177776 BIS ° S : SET PS TO CURRENT TEST LEVEL 
2934 011660 004727 014560 JSR PC, QV INITB ; SET 

2935 ; BIT2 = MAINTENANCE 

2935 ; BITS = CLEAR MOS 

2937 : BIT6 = RECEIVER INTERUPT ENABLE 
2938 ; BITS = MASTER TRANS SCAN ENABLE 
2939 ; WAIT FOR MOS TO CLEAR 

2940 ; BITO = RECEIVER ENABLE 

2941 011664 012777 0600001 167432 MOV WBITO, aTCR ; SET TRAN CONTROL BIT, LINE 0 
2942 ;OUTPUT THE &# OF CHARACTERS NECESSARY FOR THE SILO ALARM 

2943 “LEVEL TO ALOW DONE [TO SET. 

2944 011672 013702 007356 MOV COUNT, ; SET CHAR COUNT 

2945 011676 017701 167416 1$: MOV - R1 ; WAIT FOR TRAN RDY 

2946 011702 100375 BPL 1$ 

2947 011704 012777 000025 167414 MOV #25, aT BUF 7SEND #25 

2948 011712 005302 DEC R2 

2949 011714 001370 BNE 1$ 

2950 011716 105777 167376 2$: TSTB aCSR sWAIT FOR DONE 

2951 017722 160375 2$ 

2952 011724 NINTR2: ; 

oar ; If YOU ARE HERE NO INTR OCCURED 

2955 011724 023737 017216 017220 CMP NOW ,MASK ; IS THIS AN ERRGR????? 

2956 011732 002407 BLT ERROR2 ; BRANCH IF YES 

Sore 011734 000417 BR THRU2 ; IF NO,GO ON NEXT BR 

2959 011736 INTR2: ; 

2960 : IF YOU ARE HERE AN INTR ee ee 

2961 011736 022626 CMP (SP)+,(SP)+ ; CLEAN UP THE § 

2962 011740 023737 017216 017220 CMP NOW, MASK ° is THIS AN ERROR?” 22? 


pe in DJ17 LOGIC TESTS 


CZDJAF 


011746 
011750 


017752 
011752 
011754 
011756 
011762 


011766 
011770 
011772 


011774 
011774 


004 
012010 


012054 


012056 


002001 
000411 


010146 
010246 


015701 
013702 


104002 


0712602 
012601 


017701 


001401 
104001 


013777 
012777 
0.2737 


104400 


004737 


26~-FEB=79 15:41 


017220 
C17216 


167322 


100025 


167304 
167274 
017216 
001332 
000004 
000340 


014600 


MACY 71 “yat 1952? 


167270 
167270 
177776 


Kk § 
:47 PAGE 63 


; BRANCH IF ERROR 
; IF NO,SEE JF ALL BR LEVELS TESTED 


; IF YOU ARE Hem akoarT SOME THING IS WRONG 


;PUSH R1 ON STACK 
;PUSH R2 ON STACK 


; R1=BR LEVEL ALLOWED 
; (BR BITS OF PSw) 


R2=BR LEVEL OF ERROR 


; (BR BITS OF PSw) 
; REPORT ERROR+ REG. 0,17 


:POP STACK INTO R2 
:POP STACK INTO R1 


READ iHE CHARACTER 
BRANCH IF CHAR PRESENT 
CHAR PRESENT MISSING 
R1i= CONTENTS OF RBUF 
CHE CK a DATA 

BRANCH 


F OK 
; RECEIVED DATA ERROR 
; R1= CONTENTS OF RBUF 


TEST IF LAST BR WAS CHECKED 
‘as atl NEXT INTR LOWER 


RELOAD AND CLEAN UP 


SEEKER ERAEAAHERARAAEREEREERAARARERARARARERAERERRARERERRAKRRRRRRRER ER EEE ES 


D 64 CHARACTERS 


R SHOULD 
M7285. (D1-?) P32. E17, E22 (2-2) "65. E1 


Skee AREER AAR R EERE RRR E RRA RER ED COREREREERE RARE EERE REDE RED ERereees 


MAIN 


26-FEB-79 15 
S147: TEST RECEIVER INTERRUPT LEVEL 
BGE ERROR2 : 
BR THRUZ : 
ERROR?: 7 
MOV R1,-(6) 
MOV R2,-(6) 
MOV MASK, R1 : 
MOV NOW, R2 : 
HLT+2 ; 
MOV (6) +, R2 
MOV (6)+,R1 
THRU2: 
MOV @RBUF, R1 
BM! +4 
HLT +1 
CMP #100025 ,R1 
BEO +4 
HLT+1 
CLR arcr 
CLR acsR 
TST NOW 
BNE AGAIN2 
MOV RCVLVL -@RCVVE 
MOV #I0T,  a@XMTLVL 
BIC #340, a4PS 
SCOPE 
;TEST 50: TEST FI/FO OVERRUN 
THE FI/FO BUFFE 
“PROBABLE FAULTY LOGIC: 
: INITIALIZE 
; DEVICE’ ‘CSR’ REGISTER 
+ST50: JSR PC, a#INITD ; 


= INTENANCE 
18 = CLEAR MOS 


SEQ 0062 


ZZ~CZ2DJA=F=-Q DJ11 LOGIC TESTS 
CZ2DJAF .P11 1 


oOo C0000 
aad abet edad ad 


012132 


012144 
012146 


012150 
0712152 


012154 
012156 
072160 


012162 
072166 
012170 


C12172 


012224 


012777 


017701 


022701 
001401 
104001 


2C6-FEB=79 15:4 


177777 
009100 
167220 


107220 
020000 


001 346 
167166 


167154 


100605 


167150 
001346 


167106 
020000 


MACY11 30A(1052) 
TST5O: 


167234 


26-FEB-79 


TEST FI/FO OVERRUN 


sWAIT FOR MOS TO CLEAR 


2$: 
3$: 


MOV #177777,aTCR 
MOv #100, RO 
MOV acsR, R] 
BPL 1$ 
SWAS a TRUF 
BIT #MBIT13, R1 
BEQ +4 
HLT +1 
DEC RO 
BNE 1$ 
MOV TIMER, RO 
MOV accR, R1 
BPL z$ 
DECB RS 
BNE 3$ 
MOV acSR R1 
BM! +4 
HLT +} 
DEC RO 
BNE 3$ 

sFI/FO SHOULD NOW BE FULL 
TSTB R1 
BM! +4 
HLT+1 
CMP #100605 ,R1 
BEQ +4 
HLT +] 


sSBITS = 


L 5 
15:47 PAGE 64 


MASTER XMTR SCAN ENB 


SET: 
;BITO = RECEIVER ENABLE 


; TRANS CONTROL BIT, ALi LINES 
7SET UP COUNTER = 64. CHAR FI/FO BUFF 
;SAVE AND WAIT FOR TRANS READY 


; TRANSMIT LINE #4 ON LINE 
: CHECK FI/FO OVERRUN 


:BRANCH IF OK 
:FI1/FO OVERRUN TOO S 

;RI=CONTENTS OF CSR 
OUNT DOWN 


:SE?T UP TIMER 
sWAIT FOR XMTR READY 


: SHORT WAIT LOOP 


;SAVE CSR FOR THE RECORD 

;BRANCH IF TRANS READY 

: TRANS READY MISTERIOUSLY DISAPPEARED 
;R1I=CONTENTS OF CSR 

> TIME 3 CHARACTER LENGTHS 

;BRANCH IF MORE TIME 


> CHECK THAT DONE IS SET 
; H IF OK 


; DONE DIDN*T COME UP! 
Ri = CONTENTS OF CSR 
:CHECK THAT FI/FO NOT OVERRUN 


:BRANCH IF OK 

sFI/FO OVERRUN SET 

70R SOME OTHER CSR ERROR 
7RI=CONTENTS OF CSR 


FEAT AEE EEE EREREREEHEKAAEEERAKAEREEAAAEERREERARERARERARARERRAS RRA RETAKE RES 


:TEST SOA: 


T50A: 
118: 


TEST THAT FI/FO OVERRUN C 


S UP ac 65TH CHARACTER 


OME 
IS RECEIVED WITHOUT READING FI/F 


+ CARRE RERERRERREERAERAREERECAREARRRRRRRRAERRERRARRRERREERAREREEeeeEeeres 


: SEND on CHARACTER 
:SET UP TIMER 
:SHORT WAIT LOOP 


sSAVE CSR 
sCHECK FI/FO OVERRUN 
BRANCH WHEN SET 


“BRANCH IF MORE TIME 
“FI/FO OVERRUN DIDN'T COMEUP 


SEQ 0063 





26-FEB-79 


TEST FI/FO OVERRUN 


#120605 ,R1 
+4 


M 5 
15:47 PAGE 65 


Ri = CONTENTS OF CSR 
i CHECK TOTAL CSR 


;BRANCH IF Ok 
; SOMETHING IN CSR FOULED UP 


:R1=CONTENTS OF CSR 


LRA RRR RRR EKER EEE RRR REECE hhhhheED 


TEST THAT READING THE RECEIVER BUFFER CAUSES FI/FO 


OVERRUN TO CLEAR 


BECAUSE OF TIMING OF THE FI/FO, FI/FO OVERRUN CAN COME 
BACK UP AFTER READING ONE CHARACTER, SO A SECOND MUST 
BE READ TO INSURE THAT FI/FO OVERRUN IS CLEAR. 


#2, RO 

@RBUF, R1 

+4 

#070000 ,R1 

+6 

R1, R2 

R2 

#177760,R2 
:. R2 
+4 

RO 

24$ 

R5 

23% 

21$ 

acsR, R 

ar yeees ofl 
+ 


eT Tr i ef Sr ee rte te TO RO I EER EREREEREEERARAN Kh hhh 


:SET UP COUNTER - 2 CHARACTERS 

: CHECK AND SAVE FIRST CHAR IN FI/FO 
BRANCH IF CHAR PRESENT 

; CHARACTER PRESENT GONE! 


: CHECK RECEIVER ERRORS 
BRANCH IF OK 
sRECEIVER ERROR 


7BIT12=PARITY ERROR 
:PUT LINE # IN R2 


: CHECK DATA (=LINE#) 
;BRANCH IF 


DATA RECEIVED 


; WRONG 
:R1I=FI/FO DATA 
7 (DA 


; COUNT CHARACTERS 
BRANCH DONE 
SHORT WAIT LOOP - GIVE FI/FO TIME 


;GO READ ANOTHER 


SAVE CSR 
; CHECK st al hag OVERRUN CLEARED 


:BRANCH 

:FI/FQ OVERRUN DIDN'T CLR 
:OR SOMEOTHER CSR PROBLEM 
;RI=CONTENTS OF CSR 


J EAE ERA AEREERAARERRAAEEHAAEKREARRRERRARERRRERRRERERRE RRA REE 


TEST THAT FI/FO OVERRUN INTERRUPT 
DOESN'T OCCUR WHEN THE PROCESSOR IS AT LEVEL 5 


“RENE RRRERRE ERE RR ERE ERE RRARRRRRARRRREERRRRERRARA RRR REE DaeeEeEeaeee 


ZZ~CZDJA=F=0 DJ11 LOGIC TESTS MACY11 30A(1052) 
CZDJAF .P11 2C6-FEB=79 15:41 TSTSO: 
3075 
3076 012226 022701 120605 12$: CMP 
3077 012232 001401 BEC 
3078 12234 104001 HLT +1 
3079 
3080 
3081 
3082 sTEST SOB: 
3085 : 
3084 : NOTE: 
3085 : 
3086 : 
3087 : 
3088 
3089 012236 012700 000002 T50B: MOV 
3090 012242 017701 167054 218: MOV 
3091 012246 100401 BM] 
ak 012250 104001 HLT+1 
3094 012252 032701 070000 BIT 
3095 012256 001401 BEQ 
3096 012260 104001 HLT +1 
3097 
3098 
3099 
3100 
3101 
3102 012262 010102 MOV 
31053 012264 000302 SWAB 
3104 012266 042702 177760 BIC 
3105 012272 120102 C 
3106 012274 001401 BEQ 
3107 012276 104001 HLT +1 
3108 
3109 
3110 012300 53 22$: DEC 
3111 012302 001403 BEQ 
3112 012304 105305 23$: DECB 
3113 012306 001376 BNE 
Lbs. 012310 000754 BR 
3116 012312 017701 167002 24%: MOV 
3117 012316 022791 100605 CMP 
3118 012322 001401 BEO 
3119 012524 104 HLT +1 
3120 
3121 
3122 
3123 
3124 
3125 acer 50C: 
3126 
3127 
3128 
3129 012326 042737 000340 177776 =150C BIC 
3130 012334 052737 000240 177776 BIS 


#340, 
#240, 


a¥PS 
a#PS 


:CLEAR PSwW 
SET PROCESSOR TO LEVEL 5 


SEQ 0064 


N 5 
15:47 PAGE 66 


yt ae DJ11 LOGIC a ee MACY11 30A(1052) 26-FEB-79 

CZ2DJAF .P11 26-FEB=79 15:4 TST5O: TEST FI/FO OVERRUN SEQ 0065 
3131 012342 012777 012432 166760 MOV #32$, @RCVVEC ;SET UP RECEIVER INTERRUPT VEC 
3132 012350 012777 000340 166754 MOV #340,  @RCVLVL 

31353 012356 052777 010000 166734 BIS #BIT12, @CSR sSET STATUS ENABLE 

3134 012364 017701 166730 MOV @CSR, RI ; SAVE CSR 

3135 012370 022701 110605 CMP #110605 ,R1 CHECK CSR 

3136 012374 001401 BEQ +4 

3137 012376 10400 HLT +1 ;CSR ERROR 

3138 ;R1=CONTENTS OF CSR 

3139 012400 000377 166722 SWAB a7 BUF ; SEND LINE # 

3140 012404 005777 166710 30$: TST aCSR sWAIT FOR TRANSMITTER READY 
141 01241G 100375 BPL 50$ 

3142 012412 377 156710 SWAB @ (BUF ;SEND LINE # 

3145 012416 017701 166676 31$: MOV @CSR, RI :SAVE CSR 

3144 012422 032701 020009 BIT #BIT13, R1 ;WAIT FOR F1/FO OVERRUN 

3145 012426 001773 BEQ 31$ 

eee 012430 10 BR 33$ ;SKIP ISR 

3148 012432 017701 166662 323: MOV @CSR, RI SAVE CSR 

3149 24 104001 HLT +1 ¢ INTERRUPT OCCURRED AT LEVEL 5 
3150 012440 005777 166656 TST @RBUF ;| POP" ONE CHARACTER 

3151 012444 012716 012456 MOV #34$, (SP) ;RESET RETURN ADDRESS 

Ae 012450 RTI ;RE TURN 

3154 012452 012700 000092 33$: MOY #2, RO sSET UP COUNTER - 2 CHARACTERS 
3155 012456 017701 166640 34$: MOV Fr, RT ;READ ONE CHARACTER 

3156 012462 100401 BMI +4 >BRANCH IF CHARACTER PRESENT 
3157 012464 1704001 HLT+1 

3159 

3160 012466 032701 070000 BIT #70000, R1 ;CHECK ERRORS 

3161 012472 001401 BE 14 

by 3 012474 104001 HLT +7 

3164 012476 010102 MOV R1, R2 :DUP DATA 

3165 012500 000302 SWAB R2 

3166 012502 042702 177769 BIC #177760,R2 :CLR ALL BUT LINE # 

3167 012506 120102 © CMPB 1, R2 > CHECK DATA 

3168 012510 001401 BEQ - +4 

Les 012512 104001 HLT +1 

3171 012514 005300 DEC RO ; COUNT CHARACTERS 

3172 012516 3403 BLE 36$ ;BRANCH IF DONE 

3173 012520 105305 35$: DECB R5 : SHORT WAIT LOOP 

3174 012522 001376 BNE 35$ 

He, 012524 754 BR 34$ :GO READ ANOTHER CHARACTER 
3177 012526 017701 166566 36$- MOV aCSR, Ri SAVE CSR 

3178 012532 022701 110605 CMP #110605 , 21 ; CHECK THAT FI/FO OVERRUN CLEARED 
3179 012536 001401 BEQ +4 CH IF OK 

3180 012540 104001 HLT +1 “FI/FO OVERRUN DIDN'T CLR 

3181 :OR SUMEOTHER CSR PROBLEM 
a :R1=CONTENTS OF CSR 

3184 LEER AREER ERE KREEKEE EEK REE EEKEEEERRAAERRERAEAERAERAERERERAREERE ERE RRR RE 
3185 ;TEST 50D: TEST THAT FI/FO OVERRUN INTERRUPT 


OCCURS WHEN PROCESSOR IS AT LEVEL 4 * 


ST Sete DJ11 LOGIC eit 


AF 


Ww 


> oa) gal cod al cd end 
ARUN LESS 


oo 
™~N 


ww 


BOR 


3199 


P11 


072630 


012652 
012640 


012654 
012656 


012670 
012672 
012676 
012700 


C12702 


012716 
012720 


012752 
012754 


042737 


052777 
000470 


017701 


C6-FEB=79 15:4 


000340 


110605 


166522 
166510 


020000 


000010 


166452 


130605 


000101 
1664 34 


070000 


177760 


166574 


000100 
001356 


110605 


MACY11 30A(1052) 
TSTSO: 


177776 
177776 
166544 


166460 


TSOD: 


40$: 


41$: 


42%: 


43$: 


26-F EB-79 


TEST FI/FO OVERRUN 


itt tdi tee ee eee PPP PPP PPC SESCLCCCLCCCCCC.L Oe. TT 


#340, avPS 
#200, a@APS 
442$, 
acsR, 
#110605,R1 
+4 
@ TBUF 
acsR 

0$ 
@TBUF 

acsR, Ri 


#a1Ti3. R1 
41$ 


#B1T3, a@aCSR 
45$ 


aCSR, Ri 
#130605 ,R1 
+4 


#101, RC 
@RBUF, RI 
+4 


#70000, R1 
+4 

R1, R2 
R2 
#177760,R2 
R1, R2 
+4 

acsR, R1 
RO 

46$ 

#100, RO 
43$ 

RO, COUNT 
44$ 
#110605,R1 
+4 


43$ 


@RCVVEC 


B 6 
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:CLEAR PROCESSOR LEVEL 

sSET PROCESSOR TO LEVEL 4 

;SET UP RECEIVER INTERRUPT VEC 
; SAVE CSR 


:CHECK CSR 


:SEND LINE & 


:WAIT FOR TRANSMITTER READY 


> SEND LINE # 
SAVE CSR 
:WAIT FOR FI/FO OVERRUN 


s INTERUPT DIDN*T OCCURE WHEN OVERRUN SET 
:R1 = CONTENTS OF CSR 

:CLEAR MOS 

:SKIP TO THE END 


7CSR_ ERROR 

:R1 = CONTENTS OF C 

>SET UP COUNTER - 65 CHARACTERS 
;READ ONE CHARACTER 


c 
BRANCH IF CHARACTER PRESENT 


CHECK ERRORS 


:DUP DATA 


:CLR ALL BUT LINE @ 
3; CHECK DATA 


SAVE CSR 

:GET OUT IF ALL CHAR'S ng 

‘SR CHECK ON FIRST CHAR 

F CHARTS LEFT IN SILO IS LESS THEN 
ALARM LEVEL, DONE WILL GO AWAY. 


CHECK CSR 


SEQ 0066 





£Z~CZ2DJA=F=Q 0J17 LOGIC TESTS 
CZ2DJAF .P11 26-FEB-79 15:41 


012766 
012770 


C12774 
012776 


013032 
013040 


013162 
012166 


peer ol 


017701 
100001 
104001 


013777 


012777 


032777 


013700 
105305 


110405 


166326 
001332 
000004 
013022 
166276 


166266 
000340 


000414 


000020 


000001 
166224 
000001 
166210 
000002 
001346 
166164 


166152 
166146 
000001 


001346 


MACY11 30A(1052) 
TST5Q: 


177776 


166250 


166242 


166254 


166222 


166206 


443: CMP 
BEQ 


HLT +1 


46$: 


45$: 


26-F EB-79 


#110405,R1 

+4 

43$ 

@RBUF, RI 

+4 

RCVLVL, @RCVVEC 
MIOT, @RCVLVL 
#45$, (SP) 
aTCR 

acSR 

#340, aaPS 


Cc § 
15:47 PAGE 68 
TEST FI/FO OVERRUN 


SEQ 0067 


; CHECK CSR 

sBRANCH IF OK 

;DONE DIDN*T GO AWAY 
;OR OTHER CSR ERROR 


sREAD A CHARACTER 
;BRANCH IF NO CHAR. PRES 
;CHAR. PRESENT. 


sRESET gh ry ADDRESS ON STACK 
sRESTORE P 


;LOWER PROCESSOR S7ATUS 


PRA AREER AERAKRE ARERR AREKEEAKEKEEREEEEEREAEAEEEERHES RES ERE EEE 


sTEST 3t: 


TEST 
:PROBABLE FAULTY LOGIC: 


THAT UART OVERRUN IS DETECTED ON abe LINES 
M7285 (D2-2) E3, E1:; M7279: M7280 


pili nage TO Re pe SAN ct A AD A ith dh, Sia pg A 


TST51: MOV 


10$: BIT 
BNE 


LOPS1: 


23: MOV 


3$: DECB 


MOV 
4$: DECB 


#414, acSR 
#BIT4, acsSR 
10$ 

R1 

#1, atcr 
acsR, R2 
LOPS] 

#1, aT8urF 
acser, 

2$ 3 
#2, TBUF 
TIMER, RO 
RS 

3$ 

acsR, R2 
+2 

RO 

3$ 

acsR 

acsR,  R2 
#5170, R2 
TIMER, RO 

R5 


;BIT2 
aie = CLEAR MOS 


= MAINTENANCE 


IT8 = TRANS SCAN ENABLE 
:WAIT FOR MOS TO CLEAR 


sSET UP LINE COUNTER 
; TRANS CONTROL, LINE 0 
;WAIT FOR TRANS READY 


END # 


iS #1 
;WAIT FOR TRANS READY 


SEND #2 

;SET UP TIMER 

;SHORT TIME LOOP 

:SAVE CSR FOR THE RECORD 

:NOP FOR TIMING 

; TIMER COUNT 

31 ae aa ENABLE 

: CHECK RECEIVER ENABLE 
ANCH IF Ok 

:RECEIVER come FAILED TO SET 

i = CONTENTS OF CSR 

;SET_UP 


:WAIT SHORT TIME LOOP 


D 
Z2Z-CZ7DJA=F=0 P4171 LOGIC pESrS MACY11 SAL se) 26-FEB-79 15:47 PAGE 69 
CZ2DJAF .P11 C6-FEB-79 15:4 S751 TEST RECEIVER UART OVERRUN ON ALL LINES SEQ 0068 


3299 013170 001376 BNE 4$ 

3300 013172 017702 166124 MOV @RAUF ,R2 ; CHECK FOR CHAR PRES 

3301 013176 100403 BM] 5$ ; 

3302 013200 005300 DEC RO : TIMER COUNT 

3303 013202 0013771 BNE 4$ 

3304 013204 104002 HLT +2 ;NO sire PRE SENT 

3305 7R1 = LINE # 

3306 :R2 = CONTENTS OF RBUF 

3307 013206 032702 040000 5$: BIT #BIT14, R2 7CHECK FOR UART OVERRRUN 
3308 013212 001001 BNE *4 “BRANCH H IF OK 

3309 013214 104002 HLT +2 ;UART ta MISSING 

3310 *R1 = LINE # 

3311 “R2 = CONTENTS OF RBUF 

3312 013216 122702 000002 CMPB #2, R2 ;CHECK THE DATA 

3313 013222 001401 BEQ +4 = BRANCH IF OK 

sere 013224 104002 HLT+2 oe ae ay 3RD CHAR OVERRUNS 2ND 
3316 . ane OF RBUF 

3317 013226 010203 MOV R2, R3 > DUP 

3318 013230 000303 SWAB Rs 

3319 013232 042703 177700 BIC #177700.R3 ;MASK ALL BIT LINE #, ERROR SITS 
3320 015236 620103 CMP R1, R53 :CHECK LINE #, ERRORS 

3321 013240 001401 BEC +4 [BRANCH H IF OK 

3322 013242 104002 HLT+2 sLINE # OR ieee RBUF ERROR 
3323 :R1 = LINE # 

3324 7R2 = CONTENTS OF RBUF 

3325 013244 017702 166052 7$: MOV . @RBUF, R2 > CHECK FOR MORE DATA 

3326 013250 100002 BPL 8$ > BRANCH IF OK 

sie 013252 104002 HLT+2 Rl = LINE ® IN FIi/FO! 

3329 >R2 = CONTENTS OF RBUF 

sent 013254 000773 BR 7$ 

3332 013256 005377 166036 8$: DEC acsR 3CLEAR RECEIVER ENABLE 

33353 013262 017702 166032 MOV acSR, R2 ;SAVE CSR 

3334 013266 022702 100404 CMP #100404 ,R2 :CHECK CSR 

3335 013272 001401 BEQ +4 ;BRANCH IF OK 

2336 013274 104002 HLT+2 ;CSR ERROR 

3357 7R1 = LINE NUMBER 

3338 :R2 = CONTENTS OF CSR 

3339 013276 005201 INC R1 > COUNT oe 

3340 013300 006377 166020 ASL alcrR 7GO TO NEXT LINE 

aeeo 0133504 103271 BCC LOP51 “BRANCH SACK IF MORE LINES 
sez 013306 005077 166006 CLR acsrR 

3345 013312 104400 SCOPE 

3346 

3347 

33483 SAREE REE EERE EEE AEERERRERAERE RARER RRERRRRRRRRARRERERRR ERE ER EEE 
3349 “TEST $2: TEST BITS OF BCSR FOR READ/WRITE CAPABILITY 
3350 *PROBABLE FAULTY LOGIC: M7285 (D2-2) ES, El, (D2=-3) E16, E2, E19, £35 
3357 TERE RER ERE EKER EERE ERE RRR RRA RRR RRR EERE RE REAR RARER REA RE SER Ree eeens 
3352 

3353 013314 012777 002010 165776 TST52: MOV #002010,aCSR :SET CSR 

$354 0135322 012777 177777 165774 MOV #177777, aB CSR sSET ALL BITS OF BCSR 





Z2Z=CZ2DJA=F=0 D171 LOGIC 
26-F EB~79 


CZDJAF .P11 


013330 


013356 
013360 


013362 


017701 
022701 
001401 
104001 


005077 
017701 
001401 
104001 


104400 


004 757 


012777 


_£&.§ 
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TESTS MACY11 30A(1052) 26=FEB-79 
1§:41 TSTS2: TEST READ/WRITE BITS OF BCSR SEQ 0069 
165770 MOV @BCSR :CHECK AND SAVE BCSR 
177777 CMP nipr7?, 4 :CHECK THAT ALL THE BITS ARE SET 

BEQ . “BRANCH IF OK 
HLT +1 sBIT(S) OF BCSR FAILED TO SET 
165754 CLR @BCSR : CLEAR BCSR 
165750 MOV @BCSR, R17 “CHECK THAT IT CLEARED AND SAVE 
BEQ +4 “BRANCH IF 
HLT +1 *BIT(S) OF BCSR FAILED TO CLEAR 
SCOPE 
CRRA ERR RAE ERATE hehehe Oe eae 
sTEST 53: TEST THAT LINEO CAN TRANSMIT AND RECEIVE A BREAK 
: ALSO CHECKS FRAMING ERROR(RBUF BIT13) 
: ALSO CHECKS PARITY ERROR(RAUF BIT12) 
IF ODD PARITY IS SELECTED 
;PROBABLE FAULTY LOGIC: 7285 (D2=2) ES, E1, (D2-3) £16, £2. £19. £35 
ARR RRAERRRERR ARERR EERE ERERRRREREREORR ERRORS Ree Danae ches eatnaane 
014550 TST53: JSR PC, as INITA : INITIALIZE 
:BIT2 = MAINTENANCE 
7BIT3 = CLEAR MOS 
:BIT10= R/wW BCSR 
:WAIT FOR MOS TO CLEAR 
*BITO = RECEZVER ENABLE 
000001 165730 MOV #1, @BCSR  :SEND BREAK S, LINE 0 
001346 MOV TIMER, RO :SET UP TIMER 
1$: DEC RS SHORT WAIT LOOP 
165712 MOV ae :SAVE CHAR PRES 
BM! 2$ ‘BRANCH WHEN FOUND 
INC RO sWAIT A WHILE 
BNE 1$ 
HLT +1 CHAR PRES NEVER CAME UP 
=RI=CONTENTS OF RBUF 
020090 2$: BIT #020000 .R1 :CHECK FOR FRAMING ERROR 
BNE +4 :BRANCH IF Ok 
HLT +1 :FRAMING ERROR NOT UP 
>RI=CONTENTS OF RRUF 
001366 0013090 BITB DJPAR, PARITY ;:CHECK ODD PARITY FLAG 
BEQ 3$ : HM IF NOT 
016000 Bi] #010000,R1 CHECK PARITY ERROR 
HLT +1 “ODD PARITY SHOULD CAUSE PARITY ERROR 
=RI=CONTENTS OF RBUF 
010000 3$: BIT #010000,R1 CHECK PARITY ERROR 
BEQ +6 CH IF OK 
HLT +1 “EVEN PARITY OR NO PARITY 
sSHOULDN'T CAUSE PARITY ERROR 
sRI=CONTENTS OF RBUF 
C40000 43: BIT #040000,R1 :CHECK UART OVERRUN 
BEG ~*4 “BRANCH IF OK 
HL T+1 sUART OVERRUN SET: 


D 
i's 


FESRER 24 
NN rn 
~=OODONAOUPwWr— 


FFERE 


$422 


KEELEY 
OBVEH 


JA=F=Q DJ11 AS TESTS 
P11 26-FEB=79 15:41 


y one79) 007400 


017701 165610 
100001 

104001 
005077 
105305 
007376 


164400 


013514 
013516 
013522 
013524 


073526 


165602 


013530 0047357 014550 


000001 
001 346 
165552 


165540 


032702 020000 
001001 


104002 


010103 


F 6 
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MACY11 30A(1052) 26=FEB=79 
™ST53: TEST BREAKS ON LINE QO 
:R1= CONTENTS Bad RBUF 
BIT #007400,R1 * CHECK LINE # 
BEQ 2 +4 “BRANCH IF OK 
HLT +1 ;WRONG LINEA IN FI/FO 
“R1= CONTENTS OF RBUF 
TSTB R1 ;CHECK DATA 
REQ 2 +4 : BRANCH IF OK 
HLT +7 WRONG DATA RECEIVED 
*R1= =CUNTENTS OF RRUF 
MOV @RAUF R1 ;READ FI/FCG AGAIN 
BPL *4 ;BRANCH IF OK 
HLT+1 ZEXTRA CHAR IN FI/FO 
3R1 = CONTENTS OF RBUF 
LR @BCSR ;CLEAR BREAK CONTROL REG 
5$: DECB R5 ;SHORT WAIT LOOP-REGISTER A MARK 
BNE 5$ 
SCOPE 


oR ETE AAAAARER HERAT ARAEAAEAAEEERERAARREAERAEERERAEERKRKEERERERE EE REE EE 


sTEST 54: TEST THAT EACH LINE CAN TRANSMIT a RECEIVE A BREAK 
: ALSO CHECKS FRAMING ERROR RBUF BIT13) 
: ALSO CHECKS PARITY ERROR(RBUF BIT12) 


; IF ODD ELECTED 
sPROBABLE FAULTY LOGIC: 5 (D2=-2) ES, £1, (D2-3) £16. E2. E19. E35 


+ eRRRRARERARERRERRRRERRRERERERRRRREDRRERERRRE EERO REE RET REeceehaahaeees 


TST54: JSR PC, Q@VINITA ; INITIALIZE 
:BI T2 = MAINTENANCE 
:BIT3 = AR 
:BIT10= R/W BCSR 
;WAIT FOR MOS TO CLEAR 
:BITC = RECEIVER ENABLE 
TLR R7 ;SET UP LINE COUNTER 
MOV #1), R4 ;SET LI ER 
LOP54: MOV TIMER, RO ;SET UP TIMER 
BIS R4, @BCSR SET BREAK CONTROL BiT, LINE # IN R1 
1$: “ys fs ; SHORT WAIT LOOP 
MOV 5 R2 ;READ RBUF FOR CHAR PRES 
BM] 7$ “BRANCH WHEN FOUND 
INC RQ “WAIT A WHILE 
BNE 1$ 
HLT+2 ks re NEVER CAME UP 
*R2 = CONTENTS OF RBUF 
23: BIT #029000,R2 + CHECK '? FRAMING ERROR 
BNE —s-_— #4 CH IF OK 
HLT +2 FRAMING — NOT UP 
*R2 = CONTENTS OF RBUF 
MOV R1, R: :GET LINE @ 





Z2—CZDJA=F=0 DJ171 LOGIC oa fe 
CZ2D JAF P11 


Q 
013640 


013716 


013720 
013724 


013726 


C6-FEB-79 1 


032702 
001461 
104002 


010203 
000303 


105311 


005077 
104400 


012737 


15:4 


001366 
010600 


210000 


040000 


177760 


165420 


165472 


165574 


MACY11 30A(1052) 
TST54: 


001300 


3$: 


4$: 


000002 015252 


26~FEB=-79 
TEST BREAKS ON ALL LINES 
ree 4 3/4 TO GET RID OF BITS 1 8 O 
ASL R3 ;SHIFT BACK FOR EVEN ADDR OF PARITY !ABLE 
RITB DJPAR,PARITY(3) ;: CHECK ODD PARITY FLAG 
BEQ 3$ “BRANCH IF NOT 
aH t acai : CHECK PARITY ERROR 
HLT+2 : D0 gy SHOULD CAUSE PARITY ERROR 
;R2 = CONTENTS OF RBUF 
BIT #010000,R2 ; CHECK PARITY ERROR 
BEQ 4% “BRAN ANCH IF OK 
HLT +2 ZEVEN PARITY OR NO PARITY 
= SHOULDN’ T CAUSE PARITY ERROR 
zR1 = LINE 4 
sR2 = CONTENTS OF RBUF 
BIT #0409000 .R2 : CHECK UART OVERRUN 
BEQ . +4, ;BRANCH IF OK 
HLT+2 Z;UART OVERRUN SET!! 
:R1 = LINE @ 
zR2 = CONTENTS OF RBUF 
MOV R2, R3 :DUP DATA 
SWAS R3 ;LINE #4 IN LOW BYTE 
BIC #177760,R3 ;MASK ALL BUT LINE @ 
CMP Fs R3 sCHECK FOR RIGHT LINE & 
BEQ +4 ;BRANCH IF OK 
HLT +2 ;WRONG LINE# IN FI/FO 
é = LINE # 
zR2 = CONTENTS OF RBUF 
TSTB R2 CHECK DATA 
BEQ +4 *GRANCH IF OK 
HLT +2 ; WRONG DATA ni iee 
"RI = = LINE # 
*R? = CONTENTS OF RBUF 
MOV @RBUF, R2 ;READ FI/FO AGAIN 
BPL .+% [BRANCH IF OK 
HLT +2 | sEXTRA ge IN FI/FO 
RI = LINE # 
*R2 2 CONTENTS OF RBUF 
CLR asc Sk ;CLEAR BREAK CONTROL REG 
INC R1 >COUNT LINES 
ASL RG “UPDATE LINE MARKER 
BCC L0&54 “BRANCH IF MORE LINES 
CLR a“ SR sCLEAR CSR 
SCOPE 
MOV #2, TIMES 


G 6 
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TERRE RARER RAKE RERHEARRARKEERAREAR EAA RARARRERERERE RAR RRR EE REE eR eS 


Te ST THAT RESET CLEARS ALL BUFFERS 


TEST 55: 


’ 


NOTE: 


beg FI/FO BUFFER Ts NOT COMPLETELY CLEARED 


¥ RESET; 


ONLY CHARACTER PRESENT [IS CLEARED. 





H 6 
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CZD.'1AF P17 C6~FEB=79 15:4 TSTS5: TEST R 
3523 sPROBABLE FAULTY LOGIC: M7285 (D2=8) £73 
3524 ‘itt eee CP EP PCP PCCP L SES SCSACSCCCLoCLCCoOTCCCeo Lee T 
3525 
3526 013734 052737 000340 177776 TST55: BIS #340, a4PS ;SET PROCESSOR TO LEVEL 7 
3527 4613742 012777 177777 165354 MOV #177777,aTCR SET ALL TCR BITS 
3528 013750 012777 052507 165342 MOV #052507,aCSR #SET ALL R/W BITS OF CSR 
3529 013756 012777 177777 165340 MOV #177777 ,aBCSR SET ALL BREAK CONTROL BITS (SEND BREAKS) 
3530 ;NOTE: ALL LINES SHOULD BE SENDING BREAKS, &UT NONE SHOULD BERECE!VING 
3531 : BECAUSE THE HALF DUPLEX BIT IS SET 
3532 013764 012777 177777 165334 MOV #177777 ,a1BUF ;LOADING TRANS BUFF WHEN BREAK BI? SET 
3533 ; SHOULD DO NOTHING 
3534 073772 000005 RESET ;CLEAR THE WORLD 
3535 013774 013737 001320 014004 MOV CSR,1$ sCHECK CSR AND SAVE 
3536 014002 013701 MOV a(PC)+,R1 
3537 014004 000000 1$: 000000 
3538 014006 001401 BEQ +4 
sein 014010 104001 HLT +1 
3541 014012 017701 165306 MOV a'CR,R1 sCHECK TCR AND SAvE 
3542 014016 001401 BEQ +4 
Ser 014020 104001 HLT +1 
3545 ©€14022 017701 165276 MOV @BCSR,R1 ; CHECK BCSR AND SAVE 
3546 0714026 001401 BEQ +4 
toed 014030 104601 HLT +1 
3549 014032 017701 165264 MOV @RBUF ,R1 ; CHECK RBUF AND SAVE 
3550 014036 100001 BPL +4 
3551 014040 104001 HLT +1 
> 
3553 014042 017701 165260 MOV aTBur ,R1 > CHECK TBUF AND SAVE 
3554 014946 001401 BEQ +4 
Fo 014050 104001 HLT +1 
3557 014052 104400 SCOPE 
3558 
3559 
3560 PAAR EERE ERAT REREARAAEEREERERRRERERAREERRERSRRERE RR EE RR ER ERE Ree Eee EES 
3561 sTEST 56: SEND & BINARY COUNT PATTERN ON EACH LINE 
3562 :PROBABLE FAULTY LOGIC: COULD BE ALMOST ANYWHERE 
3563 LARA ERA EERE AERRETEEELARERERERAERAAERAREREKRERRARRA RARER ARERR ERE EER ee 
3564 
3565 014054 005001 TST56: CLR R1 3 SET UP LINE COUNTER 
3566 014056 012703 100000 os #100000 ,R5 >SET UP RCV DATA 
3567 014062 012777 014260 165240 MOV MISRS6,@RCVVEC :SET UP RECEIVER INTERRUPT VECTOR 
3568 014070 012777 000240 165234 MOV #240, a@RCVLVL 
3569 614076 042737 000340 177776 BIC #340, APS ; CLEAR pon Sg ee Y 
3570 014104 052737 000200 177776 BIS 4200,  a#PS :SET PRIORITY TO 4 
3571 014112 012700 000001 MOV wi, RO SET UP LINE MARKER 
3572 014116 012777 010514 165174 MOV #010514,aCSR :BiTe = oy gee 
3573 :81TS = CLR MOS 
3574 ;BITé = RECEIVER INTERRUPT ENB 
3575 ;BIT8 = TRANS SCAN ENABLE 
3576 jBITI2= STATUS ENABLE 
WAIT FOR MOS TQ CLEAR 


3577 014124 032777 000020 165166 108: BIT MBIT4, aCSR 
3578 014132 00135764 BNE 10$ 


ir oe DJ11 LOGIC [ei * 


( 2DIAF 


014134 


014214 


014216 
014222 
014224 


014226 


014256 


014260 
014264 
014266 


014270 
014274 
014276 
014300 


014302 
014504 
014310 
074312 
914314 


052777 


147703 
020205 
001401 
104003 


105203 
017702 
100767 
000002 


162737 


005077 
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0000C1 


165154 
165144 


165144 
001360 
165166 


165100 


000400 
000005 
001 364 


165036 


165070 


165012 


00000 
Nae, 
000004 

164762 


RYR 


MACY71 SOA 


165156 


10 
TSTS6: 
e$: 


3$: 


4$: 


52) 


1SR56: 


118: 


12$: 


END56: 


aTCR 


a) | BUF 
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SS 6 ET ES ES I oe Se ee ———— eee eee 


SET THE RCV EN BIT 

;SET FOR OUTPUT DATA 

: TRANS CONTROL, ONE LINE AT A TIME 
:WAIT FOR TRANS READY 


;SEND DATA 
s;BINARY COUNT 
;MAKE SURE THE CORECT NUMBER IS QUTPUTED 


sSET FOR MAX, RECIEVER COUNT 
sWAIT FOR RECEIVER DONE 


SAVE CSR 
+ CHECK CSR 


“R2=CONTENTS OF CSR 
* CHECK CHARACTER PRESENT 


BRANCH 


OK 
; CHARACTER PRESENT SET‘! 
ZRI=LINE # 
;R2=CONTENTS OF CSR 
SRESET EXPECTED DATA 


;UPDATE LINE iN EXPECTED DATA 
sUPDATE LiNE # 
> CHECK be os LINE 


H 
“MOVE CHARACTER LENGTH POINTER 


UPDATE LINE MARKER 
sBRANCH IF MORE 
:SKIP ISR 


ZREAD FIRST DATA 
SBR4NCH IF CHARACTER PRESENT 

; INTERRUPT BUT NO CHAR PRESENT 
:RI=LINE # 

sR2=CONTENTS OF RBUF 
:RS=EXPECTED DATA 


> MASK 
: CHECK THE DATA 


LENGTH 


:RI= 

iRo=¢ ONTENTS OF RBUF 
:R3=EXPECTED DATA 
SUPDATE EXPECTED DATA 
sREAD MORE DATA 


sBRANCH IF MORE 
RE TURN 


sRESET CHAR LENGTH POINTER 
SRESTORE RECEIVER INT. VEC 


26-7 EB-79 
TEST ALL DATA ON EACH i INE 
BIS #1,aCSR 
CLR R4 
MOV 20, 
TST acSR 
BPL 2% 
MOV R4, 
INCB RG 
CMPB SUM ,R4S 
BNE 2¢ 
BICB @DJLEN,R4 
CMPB R4,R3 
BNE $$ 
MOV acsR, R2 
CMP #170505,R2 
REQ +4 
HLT +2 
MOV @RBUF, Re 
BPL oo +4 
MLT+2 
CLRB R3 
ADD #400, RS 
INC R1 
BIT #3, R1 
BNE 4$ 
INC DJLEN 
CLC 
ASL RO 
BCC 1$ 
BR END56 
MOV ~ Re 
BM; 11$ 
HLT +3 
BiCB @DJLEN,R3 
CMP eo: 
BEO +4 
HLT +3 
iINCR R53 
MOV UF, Re 
BM! 11$ 
RT 
SUB DJLEN 
MOV Beth. @RCVVEC 
MOV #10, arc 
CLR aT CR’ 


:CLEAR TCR 


TT A ES LT LL 
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CZ7DJAF .P11 26~-FEB=$79 15:41 TST56: TEST ALL DATA ON EACH LINE SEQ 0074 
$635 014342 005077 164752 CLR aCSR :CLEAR CSR 
3036 014346 104400 SCOPE 
3638 014350 012737 000020 015252 MOV #20, TIMES 
3639 014356 023737 001362 007344 CMP DJUUT,UNITS ;CHECK FOR LAST UNIT 
3640 014364 02004 BGE DONE ;BRANCH IF LAST UNIT 
3641 014366 005037 001350 CLR ALMFLG ; CLEAR FLAG FOR NEXT UNIT 
s$ 014372 00137 002472 JMP RESTA + JUMP IF NOT 
=) 
3044 014376 DONE : 
3645 014376 004737 017454 JSR PC, KBDINT 
3646 014402 062737 000001 001316 ADD #1 -PCNT +2 ZADD 1 TO THE PASS COUNT 
3647 014410 005537 001314 ADC ge Z;MAKE IT DOUBLE PREC. 
3648 014414 016516 TYPE s;END OF PASS INDICATOR 
3649 014420 032777 002000 164746 SIT Fouls acun RING THE BELL? 
3650 014426 001004 SNE 4$ sNO! 
3651 014430 000004 000007 TYPE BELL “RING THE BELL 
3652 014434 000004 000177 TYPE eg 4 ; TYPE A FILLER FOR 11/05 
3653 014440 01357090 000042 4$: MOV a442,R0 :;GET MONITOR ADDRESS 
3654 014444 001405 BEQ “IF NONE 
3655 014446 RESET sRESET AND 
3656 014450 SENDAD = 
3657 014450 004710 JSR . :GO TO MONITOR 
3658 014452 000240 NOP =SAVE ROOM 
3659 014454 000249 NOP :FOR 
3660 014456 000240 NOP “ACT11 
ort 014460 000137 002472 3$: JMP RESTAR ;RETURN 
3663 
3664 ; 
3665 THIS SUBROUTINE WILL CALCULATE THE BR PRIORITIES. 
3667 014464 BRSET: 
3668 014464 01 MOV RC, ~ (SP) ; SAVE RO 
3669 014466 010146 MOV RT, -(SP) : SAVE Ri 
3670 014470 013700 001362 MOV DJUUT, RO ; LOAD UP UUT DEVICE #@ 
3671 014474 100 ROL 0 ; MULT X 2 TO SAVE OFFSET 
3672 014476 012701 017230 MOV #PRIBLE, RI > LOAD IN BASE OF TABLE 
3673 014502 060100 ADD R1, RO : STORE LOCATION OF BRIN RO 
3674 014504 011037 017220 MOV (RO), MASK ; SAVE BR FROM QUESTION 
%75 014510 162737 000060 017220 SUB 0.° MASK : = DECIMAL #(0 TO 7? 
3676 > CREATED FROM ASCI 
3677 014516 013737 017220 017222 MOV MASK, LEVEL > STORE FOR ERROR PRINTOUT 
3678 014524 006137 017220 1$: ROL MASK > ROTATE 5 TIMES TO 
2679 014530 006137 017216 ROL NOW > CREATE BR LEVELS AS BELOw 
380 014534 005337 017226 DEC CT > COUNT TO 5 
5681 014540 001371 BNE ig > BACK TILL 5 ROL DONE 
3483 : NOW= 340, THEN 300, THEN 240 THEN 200 ETC. 
3684 i (340 300, 240,200, 140,1 100.4 46,0 
%85 014542 012601 MOV (SP) + RELOAD "a1 
5686 014544 012600 MOV (SP) +. RO : RELOAD RO 
3688 014546 000207 QTS PC ; BACK TO MAIN CODE/ QUESTIONING 
3689 ; * MASK AND NOW ARE LOADED. 
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C2DJAF.P11 = 2&=F EB=79 15:41 BELL AND SCOPE ROUTINE 
369) 
3692 INITIALIZATION ROUTINE 
3693 
3694 DEVICE CSR REGISTER 
3696 :ON FAILURE: | REGISTER 0 CONTAINS ERROR ADDRESS 
$698 “SET: 
99 “BITO1 = HALF DUPLEX 
3700 “BITO2 = MAINTENANCE 
3701 =BITO3 = CLEAR MOS 
3702 *BITO6 = RECEIVER INTERRUPT ENABLE 
$703 =BITO& = MASTER XMTR SCAN ENB 
3704 *BIT10 = R/W BCSR 
3705 ; 
3706 “WAIT FOR MOS TO CLEAR 
3708 “BITOO = RECEIVER ENABLE 
3709 : 
3710 ’ SET 
3711 014550 012777 002014 166542 INITA: MOV #2014, aCSR :BIT(S)2,3,10 THEN O 
3712 014556 009413 BR INITR 
3714 014560 012777 000514 164532 INITB: MOV #514,aCSR :BIT(S)2.3.6.8 THEN © 
3715 014566 000407 BR INITR 
3717 014570 012777 000616 164522 INIIC: MOV #476, aCSR :BIT(S)1,2.3.8 THEN 0 
5718 014576 000403 BR INITR 
3720 014600 012777 000414 164512 INITD: Moy #414.aCSR :BiT(S)2.2.8 THEN 0 
3722 014606 005000 INITR: CLR RO 
3724 014610 005200 1$: iNC RC ZANT IHANG 
3725 014612 001004 BNE 23 “ROUT INE 
3727 014614 011600 MOV (SP) RO ;RECORD SUBROUTINE CALL RETURN 
3728 014616 162700 000002 SUB #2,R0 :FORM CALL ADDRESS FOR DISPLAY 
3730 014622 104000 HLT :BIT#6 OF DEVICE CSR FAILED TO cLEAR 
3732 014624 032777 000020 164466 2: BIT #BIT4,acsR :TEST HAS MOS CLEARED 
3733 014632 001366 BNE 1$ NO BRANCHES 
3735 014634 052777 000001 164456 BIS #1, @acSR :BITOO RECEIVE ENABLE 
3736 4014642 000207 RTS PC > CONT INUE 
3737 ; 
3738 





Z2=CZDJA=F-0 DJ11 LOGIC TESTS 
CZ2DJAF .P11 


015054 


015056 


015110 


013701 
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001320 
000007 


000377 
001356 


075056 


000001 
000001 


001356 
007 360 


001356 
000377 
017454 
010000 


016756 
016042 


001352 
001354 


007356 000022 


MACY11 oh ny 


000004 


001354 


000006 


001356 
sas 
007 360 
091360 
164350 


26-F EB-79 


SILO 4LARM LEVEL ROUTEEN 


ALMCK: 


c$: 


1$: 


3$: 


13$: 


TIME: 


CSR,R1 
#1,4(R1) 


MBIT2, (R1) 


COUNT 
SUM 
TIMERA 


¥eQs- TIMERB 


38 

4377 ,6(R1) 
UNT 

(R1) 


WARD 
oO 


ALMCK 


N 
aswie, asSwR 
13$ 
MAL ARM 
R1,TTY 
PC .PRINTR 
MSGDAS 


COUNT TTY 
PC ,PRINTR 
PC 
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>GET CSR ADDR INTO R1 
:SET LINE 0 IN THE TCR 
:SET THE MAINT BIT 


:SET UP TIME CONSTANTS 
;WAIT FOR TRANSFER READY BIT 


sOUTPUT A CHAR TO TBUF 

> COUNT EACH CHAR 

;CHECK FOR DONE IN THE CSR 

IF SET GET OUT OF THE LOOP 

>GIVE DONE TIME TO SET 

sRETURN TO TEST FOR DONE AGAIN 
sRETURN TO OUTPUT ANOTHER CHAR 

sERROR RETURN TRY AGAIN 

> TURN OFF RCV ENABLE 

:IF SILO LEVEL SET FOR 1 THEN GET QuT 


> CONTINUE TO A COUNT OF 256 


IF EQUAL USE IT 


2: IF GREATER SUBTRACT 1 COUNT SO IT’S LESS 


ZALL SET GET OUT 

:PUT SUM TO MAX VALUE 
:GET THE SWITCH REGISTER 
:PRINT ALARM LEVEi ? 


: YES. PRINT CSR FIRST 


sPRINT ALARM LEVEL 


; INCREMENT THROUGH ONE WC 
:GO TEST FOR DONE AGAIN 
:MAKE TIMERB LARGER IF FAST PROCESSOR 


sHAVE QUTPUTTED 18 TIMES 
:NO, GO QUTPUT ANOTHER CHAR 
ES. ro DID NOT SET AFTER 18 QUTPUTS 


SE RS FOR ERROR RETURN 
:SET RS FOR NEXT QUTPUT RETURN 
RETURN FROM ABOVE OR RETEST DONE 


SEQ 0076 


Zi=CZDJA=F=Q0 DJ17 LOGIC TESTS 
CZ2DJAF .P1i 


015246 


015250 
075252 


26-FEB=79 15:41 


017454 
000400 


164242 
040000 
004000 
001311 
015252 
001310 


015250 
001310 


015250 
015250 


MACY‘ 1 


164250 
001310 
164230 
164220 


001311 
001311 


001376 


001376 


ne? 


TRAP$: 


1$: 


2s: 
SVLAD$: 


KIT$: 
OVERS: 


LAD: 
TIMES: 


ohes tee” 


COPE LOOP HANDLER 
SCOPE LOOP HANDLER 


> THIS ROUTINE HANDLES THE ITERATIONS, LOOPING, a 
:LOOPING, AND THE DISPLAYING OF THE TEST NUMBER 


;'"SCOPE*' IS PLACED BETWEEN EACH SUBTEST IN THE TEST AND 
;RECORDS THE STARTING ADDRESS OF THE SUBTEST IN ‘‘LAD:’’ 


$SSCOPE 


JSR 


PC. 
#SW8,aSWR 
1$ 


KBD INT 


aSWR,ICNT 
OVERS 
#SW14,aSWR 
KITS 
#SW11.aSWR 
SVLAD$ 


ICNT +1 


2$ 

TIMES, ICNT+1 
KITS 

#1, ICNT+1 
ICNT 


(6) ,LAD 
ICNT ,@4#DISPLAY 


ICNT+1 


LAD 


SVLAD 


$ 
LAD, (6) 
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;LOOP ON SPEC. TEST? 
:NO LOOP ON SPEC. TEST 
;ON RIGHT TEST? *SwW7-0« 
;NOT RIGHT TEST 

;LOOP ON TEST? 

;LOOP ON TEST IS SET 
SKILL ITERATIONS 

7YES - KILL ITERATIONS 
SFIRST ONE? 


;BRANCH IF FIRST 
; DONE ? 


;BRANCH IF NOT 

SFIRST ITERATION 

:COUNT TEST arte 

SAVE LOOP ADDRESS 

;DISPLAY TEST NO. AND ITERATION COUNT 
;RETURN 


7 INC THE JTERATION COUNT 
SEI UP DISPLAY 
FIPS?! ONE? 


YES 
[FUDGE RETURN ADDRESS 
FIXES PS 


;LOOP ADDRESS 
;RUN 20 TIMES 


SEG st 


Z2~CZDJA=F=0 DJ17 LOGIC TESTS 
CZDJAF .P11 


015254 
015260 


015422 
015424 


915426 


015474 


26-FEB-79 
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017454 
002000 


015424 
000002 


017454 
001000 


001311 
015222 


015422 


000100 
016527 
016042 


MACY71 ESS? | ae 


164106 


164066 


015424 
015422 


163766 


015464 


015464 


EMT$: 


1$: 


23: 


HLTCT$: 
HLTADR: 


ERRORS: 


1$: 


2$: 


3$: 


$SHLT 


26-FEB-79 
OPE LOOP HANDLER 
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ERROR TYPEOUT HANDLER 


PC KBD INT 
WSur0. -@SWR 


-BELL 


ERRORS 
#SW15,aSWR 
2$ 


+2 
(6) ,HLTADR 


#2 ,HLTADR 


HLTADR,TTY 


a inne 
PC. ERRORS 
aSWR 

+4 
PC ,KBDINT 
ae 
+ 


ICNT+1 
KITS 


40,7 
{7° PRINTR 
1$ 
PC 


;BELL ON ERROR? 
:NO - SKIP 


RING BELL 
;COUNT THE NUMBER OF ERRORS 
; SKIP TYPEOUT IF SET 


sPUT ADDRESS OF INSTRUCTION ON STACK 
carn ADDRESS 


T HLT ARGUEMENT 


:TYPE HLTADR IN OCTAL 
TYPE LEADING ZERG'S 


:GO TO USER ERROR ROUTINE 
:HALT ON ERROR 
;SKIP IF CONTINUE 

ON ERROR! 


; CHECK FOR INHIBIT LOOP ON ERROR 
+f IF LOOP ON ERROR 


sRETURN 

;CLEAR ITERATION COUNT 

;LOOP ON TEST UNTIL NO ERRORS 
SHLT ARGUEMENT 

;LAST HLT INSTRUCTION EXECUTED 


sTYPE CSR_ IN OCTAL 
TYPE LEADING ZEROS 


:TYPE REGISTER X IN OCTAL 


SEQ 0078 


ZZ-CZDJA=-F=0 DJ11 LOGIC eee 
CZ2DJAF .P11 5:4 


elelelelelelelelolo) 
tt ed ee eed eld eed eed ed 
MAA AAI 
MIMI AAA 
te ty Heep 

NMEMOALOLOG 


015542 


015726 


012737 
004737 


26-FEB-79 1 


000001 
015644 
015770 
000020 
015772 
000120 
000015 


000060 
177770 


017664 


177776 


015642 


015772 
016012 


177560 
177562 
000200 
000177 
000025 


015716 
016514 


MACY11 me Se 


015770 READIN: ae 
J 


017664 


015642 


177776 
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TELETYPE INPUT ROUTINES 


: SUBROUTINE TO SAVE INPUT AS OCTAL NUMBER 


2$: 
3$: 


PSTEMP: 


READS: 
1$: 
es: 


4$: 


3$: 


#1, INHRE 

one READ$ ;GO READ TTY UNTIL CR 
sPUSH R1 ON STACK 
sPUSH R2 ON STACK 
sPUSH R3 ON STACK 


#120, (R2) =CHECK FOR 'P"’ 

(R1) 

(R2)s R3 
30415 

38° 

#60.R3 

#977570.R3 

3$ 

(R1) 


sBRANCH IF BAD DATA 


;MAKE SURE Z-BIT IS CLR 
ON CODES 


IN 
TRESTORE CONDITION CODES 


: TEMPORARY STORAGE FOR PS 
RS. ~(6) ; 
#INPUT, R3 : 
#INPUT+20, R3 BUFFER FULL? 


a4177560 :WAIT FOR 
.™ :A CHARACTER 
04177562, (3) ;GET CHARACTER 
#200, (3) ;GET RID OF JUNK 
#177, (3) :IS IT A RUBOUT 
:SKIP IF NOT 
#25,(3) 
3$ 
ae s AStiz. 2 <1oltte> =" 
1$ : ZAP THE BUFFER AND (LOOP 
(3),. TYPE : SET UP FOR TYPING 


SEQ 0079 


SS a ta DJ'1 LOGIC TESTS 


CZDJAF 


P11 


26-F EB-79 


15:41 


016514 
000015 


015770 


177777 
000012 


MACY11 30A(1052) 


5$: 
6$: 


INHRE : 
INPUT: 


26-F EB=79 
TTY INPUT ROUTINE 


C 7 
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SEG U080 

~~ TYPE sECHO IT . 
#15,(3)+ i; CHECK FOR RETURN ; 
2$ ;LOOP IF NOT RETURN 
INHRE 
5$ 
6$ 
-1(5) : ZAP RETURN (THE 15) 

2 ; TYPE A LINE FEED 
(6)+,R5 “RESTORE R3 
PC RETURN 
20 s TTY INPUT AREA 


ZZ2~CZDJA=F =O 
CZDJAF .P11 


016032 


DJ11 LOG ‘, 
26-FEB-7 


012737 


170101 
000001 


016200 
177772 


016202 


000100 


016200 
016200 
000060 
016201 
016202 
000060 
016202 


MACY11 


016200 
016200 


016201 


016200 


ee? 


THIS ROUTINE IS USED TO TYPE AN OCTAL NUMBER ON THE ITY. 
sALL 6 CHARACTERS, SUPPRESS LEADING ZEROES, 
IT IS CALLED VIA THE DUMP , 


Bly 
TAL DUMP OF A WORD 


SOCTAL 


;THE 16 BITS. 


BITYPS$: 
PRINTR: 
PRINTS: 


-PTIT: 


-PRL: 


-PRF: 


PR: 


MOV 
BR 
MOVB 
BR 
CLR 
MOVB 
MOV 
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OCTAL TYPEOUT ROUTINE 


re 
in, 


TYPE AN 18 BIT ADDRESS, 


IT WILL TYPE 


OR TYPE 


SDUMP,, DUMP18, OR BITYPE MACRO'S. 


SET BIT FLAG ANS 16. CHARACTER COUNT 
NOW F ORM 


TYPE IT IN BIT 
IP ZERO FILL SWITCH 


;SUPRESS LEADING ZERO’S 
SET COUNT 


SAVE R4 

>SET POINTER TO FIRST ASCII CHAR. 
;CLEAR FIRST BYTE 

;ROTATE FIRST BIT 


:CLEAR BYTE OF CHARACTER 
;BIT TYPING MODE? 


YES = SKIP 2 ROTATES 
:ROTATE BIT INTO C 


:P. I 

;ROTATE BIT INTO C 

:PACK IT 

ROTATE BIT INTO C 
PACK IT 

71S i? 


NC 
“SET FILL SWITCH 
CHECK FILL SWITCH 


>SKIP BITSET 


MAKE INTO ASCII CHAR 
NC COUNT 


;REPEAT 

sEMPTY BUFFER? 

;SKIP IF NOT 

sLOAD 1 ZERO 

7NULL TERMINATOR 

-TY IT 

*RESTORE R4 

ZRETURN 

; COUNT, SWITCH, AND QUTPUT BLFFER 





SEQ 0081 


2Z~CZDJA=F=0 DJ11 LOGIC TESTS 


MACY11 MORE) 


eee ee” 
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CZ7DJAF .P11 2C6-FEB=-79 15:41 WER DOWN AND UP ROUTINES 
3986 016224 012777 016352 000126 PDOWNS: MOV MILLUP,@PLIVECS i SET FOR FAST UP 
$987 016232 012777 000340 000122 MOV #340, @PUVEC$+2  PRIO:7 
3988 016240 010046 MOV (6 PUSH RO ON STACK 
3989 016242 010146 MOV R1,-(6) :PUSH R1 ON STACK 
3990 016244 010246 MOV R2,~(6) sPUSH R2 ON STACK 
3991 016246 010346 MOV R3,-(6) ;PUSH R3 ON STACK 
3992 016250 010446 MOV R4,-(6) ;PUSH R4 ON STACK 
3993 016252 010546 MOV R5,~(6) ;PUSH R5 ON STACK 
3994 016254 010637 016356 MOV SP, .SAVR6 :SAVE SP 
3995 016260 012777 016270 000072 MOV #PUPS,@PUVECS ;SET UP VECTOR 
sone 16266 0 0 HAL T sWAIT FOR PF 
3998 016270 013706 016356 PUP$: MOV . SAVR6, SP ;GET SP 
3999 016274 005001 CLR R1 ;WAIT LOOP FOR THE TTY 
4000 016276 005201 1$: INC Qo ;WAIT FOR THE INC 
4001 16300 001376 BNE 1$ > OF WORD 
4002 016302 012605 MOV (6)+,R5 :POP STACK INTO R5 
4003 016304 012604 MOV (6) +,R4 ;POP STACK INTO RG 
4004 16306 012603 MOV (6)+,R3 ;POP STACK INTO R3 
4005 016310 012602 MOV (6)+,RZ :POP STACK INTO R2 
4006 016312 012601 MOV (6)+,R7 POP STACK INTO R1 
4007 016314 012600 MOV (6)+,RO ;POP STACK INTO RO 
4008 016316 012737 016224 000024 MOV -aF24 ;SET UP THE POWER DOWN VECTOR 
4009 016324 012737 060340 000026 MOV #340,a726 :PRIO:7 
4010 016332 00 016336 TYPE in SOE > ASCIZ <15><12>" POWER’ * 
pr 016346 000137 002472 JMP RESTAR ;JMP TO USER ADDRESS 
4013 016352 ILLUP: HALT ; THE POWER UP SEQUENCE WAS STARTED 
po ter 016554 000776 BR 72 ; BEFORE THE POWER DOWN WAS COMPLETE 
4016 016356 000000 .SAVRE: 0 7PUT THE SP HERE 
4017 0616360 000024 000026 PUVECS$S: 24,26 sPOWER UP VECTOR 





SEG 0082 


22-CZDJA=F =O 
CZDJAF .P11 


016512 
016514 


016516 


016562 


1 LOGIC TESTS MACY11 


DBF EBL 7S 


022716 
7 


010546 


15:41 


901000 
000004 


000902 
177400 


016514 
016514 


042526 


000120 


051522 


000040 
052103 


pees 


26-FEB-79 
POWER DOWN AND UP ROUTINES 
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E 84 


SEG 


IOI IOI IIIT IO IOIIOIISIOIOIOIOIOIOIIUIOIIOI III IOIOIOIOIOIOIOTORORORORO SOTO SOTTO HE eS 
REENTERENT ROUTINE TO EITHER TYPE MESSAGES OR 
NDICATE A FAULSE INTERUPT OR TRAP, 


2 PITT IS SSCA TOSI TISIS TSEC TELE LTTE TOC TE TCT TTT TTT TTC TTT Teer eree 


JOTRAP: ya 


>MCALL 


107 ie Yi, 


$TYPE 
$TYPE 


#1000, (SP) 
IOoT$ 
#4, (SP) 
(SP)+, R1 
(SP) + 
(SP), R2 

Mt SSAGE 


: CHECK RETURN ADDRESS FOR FAULSE TRAP 


ANCH IF ''TYPE’’ COMMAND INTENDED 
“GET VECTOR ADDRESS FROM RETURN ADDRESS 
:PUT IN R1 FOR TYPING 
;POP STACK 


>SAVE RETURN ADDRESS FOR TYPING 


sUNEXPECTED INTERUPT OR TRAP 
;R1- = et ae ADDRESS 

:R2 = RETURN PC 

* CONTINUE THE PROGRAM 


TYPEOUT ROUTINE 


>THIS ROUTINE IS USE TO_TYPE ASCII TYPE A ON THE TTY. THE 


sCALL CAN SE IN ONE OF 3 FORMS: 
:MESSAGE STARTING IN LOCATION ' 


: THE ASCII ° 

IoT$s: MOV 
MOV 
BIT 
BNE 
MOV 
MOV 

1$: TSTB 
BEQ 
MOVB 
TSTB 
BPL 
BR 

2$: MOV 
ADD 
CMP 
BNE 
ADD 
BIC 
MOV 

3$: MOV 
RT] 

TYPE: 0O 

OP: 

RETURN: . 

SPACE: .ASCIZ 

MSGADR: .ASCIZ 

MSGVEC: .ASCIZ 


) 
‘ADR :** 


«ing TYPES THE 
~CHAR’* — TYPES 


j Se 
HAR’, AND 3) "PRINT se ibseaay'| meSsAce” > = TYPES 
>THE MESSAGE ouicit IS INLINE ASCII. 


TTY,~{6) 
@2(6) , TTY 
serene? 


TTY... TYPE 


#. TYPE TTY 
(TTY) 


(6)+, TTY 


-ASCIZ <15><12> ‘‘EOP" 
SCI 


<15p<12> 


(TTY)+,94177566 ;LOAD 
77564 


SAVE TTY 
:GET ADDRESS TO BE TYPED 
213 1T A TYPEM? 


NO 

3GET THE CHARACTER 

;FUDGE THE ADDRESS 

; TERMINATOR? 

[GET Oui ° so 

TYPE THE CHARACTER 
READY 


:GET ADDRESS TO BE TYPED 
ADD 2 oe ADDRESS 


:NO 
ZADD 2 TO THE ADDRESS 
;BACK UP TO AN EVEN BYTE 
sRESTORE ADDRESS 
RESTORE TTY 


RETURN 
; CHARACTER TYPE LOCATION 


<15><12>"FIRST DJ11 ADDRESS: *' 


<15><12>"VECTOR ADDRESS: *" 


0083 


ZZ2=CZDJA-F=0 DJ 


Nm & 
WO 


MACY11 30A(1052) 


042104 
020072 


020056 
030512 
020040 


040524 


000 
047171 


057101 
052107 


040507 


044526 
000040 


MSGNUM: 


MSGCON: 


MSGLIN: 


MSGDAS: 
MSGLEN: 


MSGPAR: 


MAL ARM: 


MTiTLE: 


MSBR . 


MSBAD : 


VICE: 





26-F EB-79 
TYPE ROUTINE 


ASCIZ 


ASCIZ 


ASCIZ 


ASCIZ 
ASCIZ 


ASTIZ 


G 7 
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cer VG « 
ot G@ U064 


<15><12>'NO. OF DUIT'S: °° 


<15><12>''STANDARD CONFIGURATION? °’ 


<15><12>"'LINES °° 


<15><12>"'CHAR LENGTH: ** 


<15><i2>"PARITY(NO, ODD, EVEN): ** 


eASCIZ <15><12>''SILO ALARM LEVEL FOR (SR°<15><12> 


ASCIZ 


<15><12> *C7DJA=F 


DJli LOGIC TESTS’ <15><12> 


> MESSAGES FOR INTERRPUT TESTING 
: ADDED DURING REVISION F OF C2DJAF 


»4SCIZ <15><12>/WHAT ARE THE BR PRIORITIES 2? FOR::/ 


eASCIZ <i5><12>/ THAT BR IS A GOOD FOR NOTHING. TRY AGAIN?/ 


eASCIZ<15><i2>/DEVICE = # 





Li=CZDJA=F=0 DJ1? LOGIC 
C6-F EB=79 


CZDJAF P11 


017230 


Ae 


617416 


017422 


000007 
012637 


rESTS 
1% 544 


1600CO 
000001 
000002 


000070 


000010 
001340 


006006 
001 344 


014576 


MACY71 30A(1052) 


000006 


G 
- 000020 
0. 


: SUBROUTINE TO AUTOMATICLY DETERMINE THE NUMBER OF DJ7i°S ON THE SYSTEM 
;THIS ROUTINE IS ONLY USED IF LOC 42 IS NOT ZERO, “ae WHEN THE PROGRAM IS 


26-F EB=79 


TYPE ROUTINE | 
STORAGE FOR INTERRUPT TESTING 


: 000061 
: 000061 


~WORD 1 


15:47 


H 7 
PAGE &6 


; DEFAULT FIRST DEVICE #=1 

; STORE FOR UNITS+1, DFAULT=1 
: FOR DECIMAL PRIORITIES # 

; OCTAL # OF BR 

; OF CURRENT TESTING 

; OCTAL # OF ALLOWED BR 


> STORE COUNTER FOR ROLS 
> TABLE OF INPUT &R 


AND WHFRE THEIR INTERUPT VECTORS ARE. 


BEING RUN UNDER ACT11 OR DDP MONITOR CONTR 


SOME OF THF LOGIC MUST BE FUNCTIONAL OR THIS ROUTINE WiLL BOMB! 


START AT NO RESPONSE BASE DJ17 -10°8) 
:COUNTER OF NON RESPONSE GR DJ11 OR DONE 


:RT] WHEN TIME-OuT 

;SET UP COUNTER 

7SET CARRY 

sCHECK FOR ANY DUT7°S 
SBRANCH IF IT TIMED Gul - 
:POINT TO NEXT DJ1? ADDRESS 
COUNT DJT7'S 

7LOOK FOR MORE 


:COUNT DOWN DEVICES 
:BRANCH IF DONE 

sPOINT TO FIRST DJil 
>SAVE FIRST DJ1? ADDRESS 
:GO COUNT DJ1T*S 


RESTORE TIME-OUT CATCHER 
SAVE COUNT 

;BRANCH IF NOT ZERL 

REPORT THAT NO Dsli"S WERE F GUND 
sEXIT THIS PROGRAM 


SAVE [OT VECTOR ON THE STACK 
RESET [OT VECTOR 
2GET FIRST DJ ADR 


TRANS SCAN ENABLE 
sg INTERUP? t NABI FE 


“NOTE : 
AUTG: MOV Nap ateaa RO 
MOV R2 
MOV ont. a76 
5$: CLR R1 
1§: SEC 
iSt (RO) 
SCS $ 
ADD # 0, RO 
IN¢ R1 
BR 1$ 
23: DEC R2 
BM] 7¢ 
ADD #19, RO 
MOY RG, DE VADR 
BR S$ 
7$: CLR aft 
MOV Ri, UNITS 
BNE 3% 
HiT : 
JMP DONE 
SROUTINE TO DETERMINE VECTOR ADDRESSES 
3$: MOV a#20, ~(SP) 
MOV at, aF20 
MOY DEVADR, R} 
MOV M40400, (R1)}+ 
ST (Ri}-* 
MOY. a (RID« 
WA] T 
MOV (SPie, ga#20 


Le OO eg og ome 


LINE Q 
OR AN INTERUPT 
E [QT VECTOR 


0 
4 FOR ROTATE LEFT OF BR 


SEO 0085 


?Z=-C 72D JA=F =O 


(Z7DJAF. 


P11 


017436 
017440 
017644 


017450 
01745 


017454 


917520 
017522 


317524 
017530 


Dit? LOGIC 
CS~FEB=79 1 


00207 
164716 


013746 


022737 
001023 


002004 
013705 
004737 


000010 
001342 


000176 
017522 


090007 
017604 


000176 


0 
015476 


000020 
017522 


042516 
(53523 


MACYi! 30A(1052) 
A 


000004 
161624 


001574 
00157€ 


001374 


017664 
161512 


036527 
036522 


4$: 


KBDINT: 


CNILU: 


1$: 
CNT: 
NEWIS: 
SWREQ: 


eASCIZ <15><12>"'SwRe '' 


26~F EB=79 ‘ 

UTOMATIC SYSTEM SIZER 
RTS P( 
SUB #10, (SP) 
MOV (SP), VECADR 
CMP (SP)+, (SP)¢ 
RT] 
CMP #SWREG, Swk 
BNE 1$ 
CLR TMP 1 
MOVB 177562, TMP 1 
BICS #200,TMP1 
CMPR 47, TMP1 
BNE 
JSR PC .CNILU 
RTS PC 
0 

: MOV 6,~<SP) 
MOV 4,~ (SP) 
MOY #1$.4 
CMP #-1 ,aSWR 
BEQ $ 
BR 3$ 
CMP (SP)+,(SP)+ 
MOV aSWREG, SWR 
MOV #DISPREG, DISPLAY 
MOV (SP)+ 
“OV (SP)+. ‘ 
RTS PC 
CMP #SWREG., SWR 
BNE 1$ 
TYPE ~SWREQ 
MOV SWREG, TTY 
JSR PC ,PRINTR 
TYPE »NEWIS 
JSR RS READIN 
» WORD TMP 1 
BNE CNILU 
CMP #29.CNT 
BEG 1$ 
MOY MP1, aSwR 
RTS PC 
0 
sASCIT °! NEWs:”? 


; ¥ .. 
15:47 PAGE 87 


sREPOSITION ADDRESS TO RVC VEC 
SAVE FIRST VECTOR 
:RESET STACK FROM IOT 


:RETURN FROM INTERUPT ~ RESTORE STATUS 


sTYPE SWREG IN OCTAL 
TYPE LEADING ZERO'S 


—— 


SEG VOB6 


22~C2DJA~F=0 DJ11 LOGIC TESTS 
CZDJAF P11 C6-FEB=79 15:41 


4240 000001 


MACY11 30A(1052) 


» END 


26-FEB=79 


/ 7 
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AUTOMATIC SYSTEM SIJZER 


K 7 
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ZZ-CZDJA=F =O D171 LOGIC TESTS MACY11 30A(1052) 26~-FEB=79 
CZDJAF .P11 C6-FEB=79 15:41 CROSS REFERENCE TABLE == USER SYMBOLS SEQ U0&E 
002030 697 6994 
AGAINT 004562 13124 1364 
AGAIN2 011620 29228 2997 
ALMCK 014644 2814 37404 3756 
BLMFLG 001350 5S91# 625" 2812 =—.2815* 3641 
AR 002470 784 7878 
AUTO 017304 628 41514 
BCSR 001324 5798 3354" 3355 3360* 3361 3381* 3425» 3449" 5509 3529* 3545 
BEGIN 001402 551 6114 
LL = 5164 ©7651-3839 
BITYPS 016032 39514 
BITO = 1 5174 1032 1034 1044 1176 1198 1266 1284 1325 1399 2671 2741 2811 
2868 29412 3292S 3757 
BIT = 2 5184 © 865i KG C(<i«é‘ ZS OCGTBOKS 
BIT1O = 002000 S274 949 950 959 2193 
BIT11 = 004000 284 2272 
BIT1I2 = 010000 5294 970 9771 980 2353 5339 
BIT13 = 020000 30# ©2432 «= 3029S 3070=S «8144 ~=—S 3202 
BIT14 = 040000 5314 991 992 1001 2511 3307 
BIT15 = 100000 5324 2590 | 
BIT2 = 000004 5198 886 887 896 1013 1027 1046 1557 3742 
IT3 = 000010 520 1015 7017 1636 2682 3206 ? 
BIT4 = 000020 S214 1021 1717 2685 2819 3273 3577 3732 
BITS = 0000s0 524 ©1796 
BIT6 = 000100 523# «= «907, —' ii90Bsté=«é‘STs«*BT 
BIT? = 000200 S24f 8 =—1954 2760 
BITS = 000400 525@ 6 «928-«=———«929S's:—«é“8B;CSC*«S 
BIT9 = 001000 5264 = 2114 
BRSET 014464 1315 2925. 3667 
CLRVEC 002526 792 794 7974 
NT 017664 3886+ 3904s 4230 42354 
CNILU 0176064 795 4201 42214 6229 
CONFIG 002004 663 694" = 712 
COUNT 601356 594# 2823 2871 2944 3235 37638 37508 3758 3760 3764 3776 «3 
CSR 001326 5768 803* 210* 815 B44 845* 846" 865* 866 870 87é* 875 886* 
887 891 895* 896 907* 912 916* 917 928 929 933 937 
938 969% 950 954 958 959 970s 971 975 979s 980 991% 992 
99% 1000" 100] 1013 1075" 1016 10328 1033 1034 1038 Wess 1045 1046 
1059* 1060s 1061 1066" 10678 1068* 1065* 1070 1084s 1085  108* 1090 tuSé« 
1095 1175" «1178 «= 1198. s—i«*a1199 ss 121he «1219S «1289'-'s«126h 2S s1265* «1268 = «d1275* «1277 
1285 1324" 1326 = 1362* «1400 «1410 s«1446—s«d1452®©«1479=S's«1489)—Sss1525.2s«*dS3te® 1858 
156B 1606 1610* 1637 1647 1683 1689 1718 1728 1764 i7?0* 3797 71807 
1843 1849 1876 1886 1922 1928* 1955 1965 2001 7* 2036 2066 2082 
2088" 2115 2125 2161 2167 2196 2204 2260 2246" 3273 3283 3319 3325s 
2354 2364 2600 2606" 2433 2643 2479 2485" 251¢ 3522 5558 35642 5591 
2601 2637 «= 2643" 2673 = 2679 682" «2683 2689) 702 719s 2742-745 3748 
2755 = 2786 = 2792" «= B16e = 2819 B24 «= B32 2B45* 2872 «= 28BD.~=—s«éRSS* 3945 = 53950 
2995* 3026 3037 3061 3069 3116 3133* 3134 3140 3143 $148 S177 «©3192 
3198 3201 3206* 3209 3230 3259s 32708 3273 3277 3280 328 3290% 329% 
3332s 3333 «= 3343% «3353 «35148 3528 3535 3572e «577? «= 85 7Ge «85B2 0855) BHR 
3711* 3714* 3717* 3720" 3732 3735" 3740 386 
CT 017226 1312* 29228 3680* 41414 
DP ~—s-: 002074 709 = 7118 
DEFADR 001370 6004 639 
DEFVEC 001372 6014 
DEVADR 001340 Se eS Ae eee eee eee feet Cre 





i 
ZZ-CZ2DJA=F=Q DJ11 LOGIC TESTS MACY11 30A(1052) 26-FEB=79 15:47 PAGE 91 
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DEVNEW 002400 7724 = 783 786 
DEVNUM 017210 766% 773 781% 782 41334 
DISPLA 001376 6044 3815* 3819* 4215s 
DISPRE 174 547# 4215 
DJLEN 001364 5984 805" 812* 1430 1509 1588 1667 16918 1748 1827 1906 1985 2009s 
2066. 2145 2224 = 2303 2527e 2584 2463 2542 2621 2645+ 3588 = 5607+ ©3619 
DJMXNO= 000020 5354 489 
DJPAR 1366 599# B06 813x 3396 3470 
DJUUT 001362 5974 692" —- B07 B09* 814% 3639 3670 
DONE 14376 3640 36444 4172 
EMT$ = 015254 618 38364 
END22 732 13674 
END56 014314 3611-36314 
ERRORS 001312 5734 622% 3840* 3861 
ERRORS 015426 3850 38644 
ERROR1 004672 1333 1341s«1344K 
ERROR2 011752 2956 © 2963si(si« HGH 
FTIME 001400 6074 797 796s 
GETADR 001514 627 631# 636 642 
GETLEN 002156 7264 = 732 736 740 
GETNUM 001650 6564 665 667 672 674 677 690 
GETPAR 002242 730 742% = 752 
GETVEC 001572 6444 667 653 655 
“Y= 5044 «848 853 868 872 877 889 893 898 910 914 919 931 
935 0 952 956 961 973 977 98 1003 «= «1019Ss«*1025 
1029 1036 1040 1048 1064 1073 108 1092 1097 «1110-S's«4115-—*'—«<*229—':—=«*a2:8B’ 
i532. 1957 4162) 1982-4192 «1196. 2T. 1228 «128 Cia CGMS OCOGPOtCéC2RRT 
1287. ° 1355. 1411. 14171427) 14331438) 1465 Cit4K9 14900 —sisd2696Si«‘iS06St«*Y'SSTP 
Sigs 1525 «1528 1869 (18759585 9501 48OP 1607 1648 1654 17 
1670 1678 16 ARS 1728 7S AS 9S) OS? 1782. tee 0 (eee tC 
1824 1830 1836 1841 1846 1887 1893 1903 1 1915 1920 1925 1966 
1972 1982 1988 1994 1999 2047 2053'S «2063~—Ss« 2069 75 : 
216 fie tke 2 TO Cie, 5 eee >; ee | 
2243 2284 290 2300 23 2312-2317, 2322s 23865) 2371s 2381—Ss«3B7Z?_—s«éO 89? 
2398 = 2403S 2444 2450 2666 2672 2677 2682 2523 2529 2539 2545 
2551 2556 2561 2602 2608 2618 2626 26 2635 0 2692 =. 2705 
2712 -2716~=S (2750s 2763 2772 «= 2776 ~—S 2780S 2784 Ss 2789—Ss«2835 2850 
2883 2891 2900 2977 2987 2991 3031 3052 3056S si3074 2S: 3078 
30 S107. S119. SSP 040 G7 OS? Sed Sia CSS 32120-3217 
3221-3228 «= (5240S 324623252 3204——(i‘80K==C(i‘SS9C#dSS1Q2=~=*«#HSQDs«‘idSBO7esi‘*SSS’:«CO#*‘é#¥SSSBG 
5365  35e9 330 sia IO CISC IBC RRS 56 3474 
3494 3501 506 So 3565. S547. S551 S555 SSK CSSD: OCSKIS «= SD 
3730 © 3786.-——«4029—Ss 4177 
HLTADR 015424 3844* 3845» 3846 3847 38624 
HLTCT$ 015422 3846* 38614 3868 
ICNT 001310 S7oH = 8 30® 33802 —s«3808 «= 3810 = ss 3812" 3813» 3815 3818 3819 3825 3858 
ILLUP 016352 3986 6-40.34 
INHRE 015770 727* (743% 3879% 3881* 3935 39434 
INITA 014550 3375 3440 3S 37118 
iNITB 014560 2934 37144 
INITC 014570 2861 37178 
INITD 014600 lee Gr) BRO Yee 1770-1 78e ek = ee te? te oma Ce 
2425 2504 2583 2663 2734 2805 3017 3720 
INITR 014606 3712 «= 3715. Ss 3718 ~— 37224 
NPUT 015772 659 696 705 708 711 729 731 Pete 2 PR oS 247 749 75) 
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CZ7DJAF .P11 26-FEB=79 15:41 CROSS REFERENCE TABLE == USER SYMBOLS SEG 0090 
776 778 780 3887 3917 3918 39444 
INTR1 0046656 1309 13364 
INTR2 011736 2919 29594 
LOTRAP 016364 614 40234 
IOT$ 016410 4024 40454 
ISR56 §=014260 3567 3613 
KBDINT 017454 3645 3767 3799 3836 3854 41944 
KITS 015222 3805 3811 38184 3859 
LAD 015250 831* 1166* 1374* 1692 2010* 2328* 2653 %3814* 3820 3862 38254 
LENGTH 001200 5674 70 715 812 
EVEL 017222 3677* 41394 
LEVEL7= 000340 5334 843 
LOP23 005002 14004 1401 
LOP24 005172 14794 1480 
LOP25 536 15584 1559 
LOP26 005552 16374 1638 
LOP27 005754 7184 1719 
LOP30 006144 1797# 1798 
LOP31 006334 18764 1877 
LOP32 006524 19554 1956 
LOP33 006726 20364 2037 
LOP34 007116 21154 2116 
LOP3S5 007 21944 2195 
LOP36 007476 2273H# = 2274 
LOP37 77 23544 2355 
LOP4O 010070 4334 2434 
LOP41 019260 25124 2513 
LOP42 010450 25918 2592 
LOP51 013070 32774 3278 3341 
LOP54 13542 484 3512 
MALARM 016756 3770 40974 
MASK 017220 1332 1340 1350 2955 2962 2972 3674" 3675"  %677 3678 41388 
MEOP 016516 8 4 
MSBAD 017117 785 41194 
MSBR 017051 765 47124 
16532 633 40694 
MSGCON 016631 694 40814 
16676 721 3773 40884 
MSGLEN 016702 726 4 
MSGLIN 016665 718 4 
SGNUM 016606 656 40774 
MSGPAR 016723 742 40924 
MSGVEC 616562 644 40734 
MTITLE 017013 631 41024 
| = 57 4414 835 8594 8804 9014 9224 9434 9644 9854 10534 10778 #«+311608 
11184 11424 11654 #1167 12064 12574 12914 13734 1375 14544 15334 16128 ‘6914 
1693 17728 18514 19 20094 011 0904 21698 22488 23278 2329 24084 24878 
25664 26454 2654 272 27954 28554 30074 32648 33478 33668 %34318 35178 
3518 35594 36384 
NEWIS 017666 4226 42374 
INTR1 004644 13294 
INTR2 011724 29524 
9G00D 002462 777 779 7854 
: 017216 ee hd 1323 1332 1340  +=1352 1363 2924 2933 2955 2962 2974 2996 3679» 
OPEN = 000000 5344 
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CZDJAF .P11 26-FEB=79 15:41 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0091 

OVERS 015226 3803 38194 

PARITY 001300 5684 716 757 3396 3470 

PARIT2 001302 S694 

PARITS 001304 5704 

PARIT4 001306 5714 

PCNT 001314 5744 623* 624% 3646* 3647* 3603 

PDOWNS 016224 616 39864 4008 

PRINTR 016042 3772 3775 3848 3866 3873 39538 4225 

PRINTS 016052 720 724 39554 

PRIOLO 017214 1311* 1313* 1314 2921* 2923 2924 41354 

PRIBLE 0172350 769 3672 41424 ‘ 

PS = 177776 S064 1322e 1323* 1369*% 2932% 2953* 3001* 31298  3130% 3189%  3190*  2260% 3526s 
3569* 3570* 3907 3911* 

PSTEM 015642 3907* 3911 39144 

PUPS 016270 3995 39984 

PUVECS 016560 3986* 3987*  3995* 40174 

CABR 002344 553 629 698 707 710 7654 

RBUF 001522 577# 817* 1406 1442 1485 1521 1564 1600 1643 1679 1724 1766 1803 
1839 - 1882 1918 1961 1997 2042 2078 2121 2157 2200 2236 2279 2315 
2360 3 2439 2475 2518 2554 2597 2633 2686 2714 2766 2774 2782 
2841 2846 2889 2898 2985 0 3150 3155 3215 3250 330C 3325 3385 
3421 3452 3504 3549 3597 3613 3627 

RCVLVL 001332 5834 825* 2920* 2999 3132* 3254 3255* 3568* 3632 3633* 

RCVVEC 0013350 S824 804* 811 823 2919* 2999% 3131* 3191* 3254% 3567* 3632s 

READIN 015476 634 645 38794 4227 

READS 015644 657 695 728 744 775 3880 39164 

RESTAR 002472 7894 3661 4071 

RETURN 016524 632 40674 

SCOPE = 104400 5034 832 858 879 900 921 942 963 984 1005 1052 1076 1099 

1690 1771 1850 


204 1255 1289 1371 1453 1532 1611 
168 2247 2326 2407 2486 2565 2644 2721 2795 2854 
3345 3365 29 


2904 34 3515 3557 3636 

SPACE 016527 w7i. 

SSS 002060 706 = 708M 

STACK = 001200 5364 611 

SUM 001360 S95H# 3586 = 3744" 3760* 3761 «= 3764" 3766 

SUSWRR 017524 612 42078 

SVLAD$ 015202 3807 9 38134 = 3821 

SWwR 001374 6034 793 3649 3768 3800 3802 3804 3806 3837 3841 3857 3855 419% 
4210 4214% «4221 4232s 

SWREG 000176 5484 793) 4196S 4214 = 4221 426 

SWREQ 017676 4223 42398 : 

SW10 = 002 455# 3649 3836 3837 

Swi = 4544 38 

SwW12 = 010000 4534 3768 

Sw13 = 020000 4524 3841 

SW14 = 040000 4514 3804 

SW15 = 100000 4504 

SWw8 = 000400 4584 3799 3800 

SW = 001000 457# 3855 

TBUF 001326 5804 (822% 1187 1230 1402 1481* 1560" 1639% 1720* 1799» 1878* 1957» 2038 
2117* = 2196* = = 2275* = 2356* = 2435" 2514x2593 2675e = 2744e «2747 «= 2B26* «= 2B74e 9478 
3028* 3065* 3159*  3142* 3197% 3200s 3279x 3282e 3532* 3553 3584s 

TCR 001324 8H =—B19* 1106* 1107 31128 1113 Wee. = 77 1126 1137e = 1732e 0 1133® 1434s 
1135 1149" 1150) 1154" «1155 1159® = 1160 1176® «= 1198* «1277 «= 1248* «= 1266 «128s 
1325* 1361" 1399% 1451% 1478* 1530% 1557e 1609* 1636" 1688" 1717 1769 1796s 
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1848* 1875" 1927" 1954" 2006* 2035" 20878 21148 21668 21938 22458 22728 23240 
2353* 2605" = 26352e = 2484s = 25118 = 2563" = 2590" = 242% = 26718 «92718 = =2741% «07918 = BT 18 
2852 2868 2902 2941% 2994" 3024" 3258% 32768 33408 35278 3541 3581* 3634* 


a) 


THRU 004714 1334 1342 13604 

THRU2 011774 2957 2964 29834 

T 1ME 015056 3753 37804 

TIMER 001346 S904 1165* 1186* 1279 1267 1373 1414 1493 1572* 16518 7328 18118 1890* 


1969* = 2050* = 2129 2208" = 2287* = 2368* = 2.447% =. 2526" = 2605" = 26 *® 2647 2651* 2652* 
2698 2752 2829 2877 3036 3066 5283 5297 5382 3448 


TIMERA 001352 S924 3745» 3780* 
TIMERB 001354 5934 3746* 3782* 
TIMES 015252 3517 3638* 3810 38268 
TMP 1 017522 4196*  4197% 4198* 4199 42044 4228 4232 
TRAPS 015112 620 37994 
TST 002744 8424 

TST10 3420 2914 

TST1?) = 003472 10134 

TST12 3634 10594 

TST13 §©003722 10844 

TST14 003776 11064 

TST15 0040 11244 

TST16 4 =004124 11494 

TSTI7 §=©004214 11754 

TST? 003024 8654 

TST2O0 004324 12144 

TST21 004440 12654 

TST22 004540 13094 

TST235 004770 13924 

TST24 005160 14714 

TST25 005350 15504 

TST26 §=005540 16294 

TST27 §=©005742 17104 

TST3 003076 88 

TSTSO §=—©.006132 17894 

TST31 4 §=—©006 322 18684 

TST32 006512 19474 

TS733 006714 20284 

TST34 007104 2107# 

TST35 §©007274 21864 

TST36 4 =©007464 22654 

TST37 7 2 

TST4 003150 9074 

TST40 §=010056 24254 

TST41 010246 25044 

TST42 10436 25834 

TST43 010670 266 54 

T5744 =011054 27344 

TST465 011262 28054 

TST46 0 =. 001 1444 28614 

TST47 = =—.011576 29198 

TSTS 003222 92 

TSTSO} 3=—6.: 07 2056 30174 

TST51 13042 32704 

TST52 01353514 33534 

TST53 3 §=©6.01 53562 33754 


ZZ2-CZDJA=F=Q0 DJ11 LOGIC TESTS 


CZ2DJAF .P11 
TSI5S = 0013734 
TSTS6 = 014054 
TST6 003274 
TST? 003546 
TYPE 
TYPLIN 002124 
TSOA 012172 
T508 012236 
T50C 012326 
TSOD 012542 
UNITS 001344 
UNITS? 017212 
UUTDJ 017224 
VECADR 001342 
VICE 017174 
WAIT1 636 
XMTLVL 001336 
XMTVEC 001334 
SENDAD= 014450 
= 017706 
-BIT = 177777 
-PR 16200 
- PRF 016120 
-PRL 016076 
-PTIT 016064 
-SAVR6 016356 
-FYPE 016514 


C6-FEB=-79 15:41 


MACY11 ” 


A(1052) 


26-F EB-79 


C 8 
15:47 PAGE 95 


ROSS REFERENCE TABLE == USER SYMBOLS 


40164 
4047* 


4048 


644, 
3651 
4223 


40644 


656 
3652 
426 


3639 


652 


3000* 


694 
3770 


4169* 


654 


5554 


718 


3775 


811 


S674 
1 





721 
3839 


4189* 


3976* 


726 
3845 


742 


3849 


765 


3871 


SEQ 0093 


772 
3929 


D 8 
15:47 PAGE 97 


Z2Z7-CZDJA=F=-0 D171 LOGIC geSTS MACY17 30A(1052) 26=FEB=79 
CZDJAF .P11 26-FEB=79 15:4 CROSS REFERENCE TABLE == MACRO NAMES SEG 0094 
BI TYPE la 5334 
BLKBLK lf 
BUF HDR ft 
DUMP la S334 3847 3865 4224 
DUMP 18 lf 
FILBLK lf 
LNKBLK 1a 
ODT11 14 
ODT11x 14 
ft S334 861357 2980 3908 4002 
PRINT la 5334 3843 3849 3928 4010 
PUSH if 533@ 0230s 1347 2969 3882 3988 
SCOPE . 14 
SCOP. lf 
DUMP 14 5334 719 723 
TRACE lf 
TRNBLK 14 
TYPEM 14 
WRITE lf 
SARK 8354 3431 
SBRKO 8354 3366 
$BY TRF 83554 105% 1118 : 
SCATCH 14 
SCLREG 8354 1077 1142 
$CMOS 8354 2654 
SCMTAG 1a@ 
SCNIL 14 4220 
$SCSREF 8354 
Rit eo 1454 1533 1612 1693 1772 1851 1930 2011 2090 2169 2248 2329 2408 
SEND 1# 3644 
SEQUAT lf 503 
SEXER 8354 3559 
$F IFOV 8354 3007 
8354 2855 
T 1# 3828 
SIOCAT 4414 537 
S$IOT 4414 4018 
SKBIN lf 4195 
SKRAT fj 
$L_OADR 1f 
VL 8354 1291 
SMT SE 8354 1257 
SOC TAL 14 3945 
SPOWER lf 3986 
SRAND i 
r) 
$SRCVDA 8354 2795 
SRCVE 8354 #71 
SRE 14 3916 
$RE GBC 8354 859 880 7 922 943 964 985 
SREGST 8354 1100 3347 
SRE SET 835% 3518 
$RINT 8354 2906 
SRONL Y 8354 
$RUOR 8354 


Z2=CZDJA=F=0 D1? LOGIC ie he 


CZDJAF .P11 C6-FEB=79 15:4 
$SCOPE le 3791 
$SE TUP la 

$SRAT le 

$SwDOC lf 447 
SSWRDF 1a 602 
SSWRRR 14 4206 
STRAP lf 

$TYPE l# 64035 
SURAT lf 

SXRDY 835% 1206 
SXRDYC 835e@ 2723 
$xXRDYO 8354 1167 
$XUOR 835% 3264 
. SCOP lf 

. SCOPE la 

- ABS. 017706 000 


ERRORS DETECTED: 0 


CZDJAF .BIN, CZDJAF .SEQ/CRF /SOL/NL : FOC=CZDJAF MAC ,CZDJAF .P11 
RUN-TIME: 11 
RUN-TIME RATIG: 159/29=5.4 


CORE USED: 


16 .9 SECONDS 


32k (635 PAGES) 


E 8 
MACY71 30A(1052) 26=FEB=79 15:47 PAGE 98 


CROSS 


REFERENCE TABLE == MACRO NAMES 





SEQ 0095 


